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1.0 GENERAL PROGRAM INFORMATION. 


1.1 PROGRAM PURPOSE (ABSTRACT). 






PL CALTERING, ThE 
ee es rts 
175610 “CIRST SERN eee OF 16 CONSECUTIVE 


300 - VECTOR FOR FIRST OF 16 DEVICES. 


THIS PROGRAM IS DES TO RUN ANY “11 WITH 4K 
ner : oft te te 1-8u5) moBULe; JT can RUN UNDER ADP, ow 
T ART. 


SWI R FAILURE WILL CAUSE THE DIAG- 
NOSTIC 


1.2 SYSTEM REQUIREMENTS. 
1. HARDWARE REQUIREMENTS: 
ANY PDP-11 FAMILY PROCESSOR 
4K MEMORY - MINIMUM 
AR oe EQUIVALENT ) 


HOBEM CABLE- BCUIV-X OR BCOSC- 


SOFTWARE REQUIREMENTS: 


yrs prawasrsc IS DESIGNED TO RUN IN ANY OF THE 
FOLLOWING $ 
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1.3 RELATED DOCUMENTS AND STANDARDS. 
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1.S ASSUMPTIONS. 


THAT THE OPERATOR INITIALIZED 
LOcaTTON VM’ TO THE R ues. 
(iH) JL MUST Pt MOVED FROM AL Ate he *S UNDER TEST. 


2.0 OPERATING INSTRUCTIONS. 


2.1 LOADING AND STARTING PROCEDURES. 
aes PROCEDURE FOR POP-11 ABSOLUTE BINARY FORMATTED 


THIS D TIC ws ONLY ONE (1) STARTING ADDRESS. 200 FOR 
START AND RESTART 


RE Bhs Re eRe ES 


TE 13° PRE VIOUS TO THE SELECTED 
LONE CUTED WI THOU TE TERATI 
2.2 SPECIAL ENVIRONMENTS. 
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2.3 OPERATIONAL SWITCH SETTINGS 
IAGNOSTI 
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DYNAMIC SWITCH REGISTER 
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BIT 15 - HALT ON ERROR 
13 - Treiel TYPEOUTS 
i - INH a 
> t On Test IN SWR«<7:0> 
7:8 - FEST NUMBE LOOP ON (USED WITH BIT 8) 
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2.4 


PROGRAM OPTIONS. 


ane Bae Wh ec eect 


ie ery pit, oF, mE _ TEST ANY DLVI1-E WITHIN THE 
5 gar MUPBERS AS FOLLOKS: (NUMBERS IN 


ae = TOR STORED AT *SVECTI’ 
UNIT#1 -- ef 


i uP TO 
unrTaLs — BASE SBRTERS 3 {178} 
LOCATION ap SOE” I 1S USED AS A 1T MAP TO INDICATE WHICH UNIT 


BIT 15 BIT 1 BIT O 
jue 7. a ad : a Se 


A Bit MAP CAN BE ENTERED AT ‘’SDEVM’ PRIOR TO STARTING THE 


Eeevin. 177503 
VM: 13 


THE PROGRAM WILL TEST- 
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VALUE OF SUSWR IS AS FOLLOWS: 





BIT POSITION DEFINITION DEFAULT VALUE 
0-3 gore) =8 
4 5 5 . NO 
e 1 zs ope 
s 7 ! es 4B RATE o. = NO 
8-11 : (8) = 110 BAUD 
H FRABLED 
15 t 1 == YB 
14 R) AND (-FD) ears IN 1 = YES 


(= 
(NOT DEFINED) 


NOTE 
THIS DIAGNOSTIC DOES NOT TEST THE PARITY LOGIC. 
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2.5 EXECUTION TIMES. 
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3.0 ERROR INFORMATION. 


3.1 ERROR REPORTING PROCEDURE. 


RUNGE TW RUOOUSTIG MERLBESTOHD JOT BY Tie St bel 


TESTaeeees , ERRORS +eee , PCaceees , ADDRESS=++eeee, VECTOR=eeeee 
PA ae onal DE PN te ne 


BIT 15 - » > CONTINUES TO HALT IN THE ERROR 
TINUE ING THE PROGRAM CAUSES IT TO 


BIT 13 - DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 - CAUSES THE BELL TO RING ON ERROR. 
BIT 9- oe SEPT | trata TO LOOP FROM BEGINNING 


THE ERROR ROUTINE SUPPORTS THE CONTROL G FUNCTION. 
3.2 ERROR HALTS. 


Te cut T Nye i) § eo a ERROR ROUTINE, AND 
- SWITCH REGISTER IS A ONE 


4.0 iuchce AND PROGRESS REPORTS. 


4.1 PERFORMANCE REPORTS. 


FOLEout 4 REN ICE a OEE TES ONE PASS OF THE DIAGNOSTIC THE 
seeeee We OR: a ,» ERRORS: eeeee 


WHERE . ’ Ve teeeee?’ oF Fen veer Re TEST 
soe* 
AND vecioR: c+ He tere NUPBER OF OF RRORS ON THIS DEVICE 


NOTE 
THIS IS TYPED AFTER THE DEVICE HAS COMPLETED ITS PASS. 
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6.0 


SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


 RULAT PEED TE SOREN LOAD. al 


THE FOLLOWING 8 TESTS TEST ALL ’READ WRITE’ BITS 


TEST e BREAK - TCSRO SET, CLEAR, RESET 


NOTE 


Me Sis Wi ial 


TEST 6 REQSEND - RCSR2 SET, CLEAR, RESET 


THIS TEST ASSUMES THAT JUMPER FR IS IN. 


TEST ? SECXMIT - RCSR3 SET, CLEAR, RESET 
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THE FOLLOW 4 TESTS VERIFY THAT RESET (INIT) INITIALIZES 
REAO ONLY BITS. 


TEST 12 RCVRDONE - RCSR 7 - IS CLEARED BY INIT 


TEST 13 XMITRDY - TCSR 7 - IS SET BY INIT 


TEST 14 DATAINT - RCSR 1S - IS CLEARED BY INIT. 


TEST 1S RCVRACT - RCSR 11 - 15 CLEARED BY INIT 


BEERS HELLA SET he Sek StS co 


TEST 16 CARDET SETS AND CLEARS AS DTR SETS AND CLEARS 


DATAINT IS CLEARED AFTER READING RCSR 


NOTE 
pms TIED TO BOTH CARDET AND CLRSEND BY THE 


TEST 23 DATAINT SETS WHEN RING SETS AND THAT DATAINT 


DOES NOT SET WHEN RING CLEARS 


TEST 24 DATAINT SETS WHEN SECREC CHANGES STATE 


SEQ 0013 
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TEST 2S XMIT RDY - TCSR 7 - CLEARS WHEN TBUF IS LOADED 


) al TR ee eT IT SETS WITHIN A 


1 TEST 26 OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 


S32 
Fe BEE ihecanoSRN RE riAE EG THE sel 


CLE BIT. 


TEST 27 RCVRDONE IS CLEARED BY READING RBUF 


a | TEST 30 RCVRACT - RCSR 11 - SETS WHEN A START BIT IS 
543 eaten AND CLEARS WHEN RCVRDONE - RCSR 7 - 
aie T 

4S 
S46 

7 TEST 31 OVERRUN BIT - RBUF 14 

49 
FS 23 TEST 32 PROGRAMMABLE BAUD RATE TEST TEST AT ALL SPEEDS 

53 AvVAI a SON WI MADE TO SEE IF 
ES REDPYERAE rs" SOEUR abl 
SS6 
Fs TEST 33 TRANSMITTER INTERRUPT LOGIC TEST 


ee LOOLSSe HL TUE HBS" RERROPE (BETE won 
Bes 3 BUT ony <i ENABLE CLEAR 


4 
S&S 
Ze TEST 34% RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 

THE RE R OF THE INTERRUPT LOGIC, BOTH 

ee Sool NEI Rolls 
$7 
eve TEST 5 TEST ACTUAL DATA TRANSFERED NON-INTERRUPT 
eae “ MAINTENANCE BIT SET 
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Pill SEQ 0016 


TEST 36 TEST DATA THROUGH CABLE 


TEST 37 FULL DATA TRANSFER WITH INTERRUPTS AND MAINTENANCE 


MODE . 


TEST 40 TEST BREAK GENERATION LOGIC TRANSMIT KNOWN CHAR 


WITH BREAK SET AND COMPARE RECEIVED WITH O. 


BSERRROOR BIS. 


eas TEST 41 NOT A TEST - SEND BACK TO LOOP 
a4 
34 
595 
2e9 FOR (ee) nour es THE USE 
) Bic MECHANISM 
2 TWEEN THE See Oo a CALLED. 
ay ROUTINE: TIMER 
603 ere 
eee Des. ROUT INE eRe tore ug TEST THE STATUS OF 
606 INPUTS: 
one HOWL ONG T next ae OF TIME TO 
609 WHICHBIT ry: HiME BTiS) SET THAT 
REG IN 0 REGISTER TO BE 
SETCLR THE DESIRED RESULTS -- EITHER SET 
OUTPUT: 


a 3 1§ T TO INDIC tt RROR BUT IT 
Is TESTE IF.ERROR STATEMENT. 
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ROUTINE : DATLNG 


THIS ROUTINE SETS UP A MASK FOR DATA, WITH - 


ee an 


rere OCATION OF THE OCTAL 
TA 


NUMBER OF GHICH TS DEFINED IN SUSUR WORDS 


ROUTINE: WAIT 


TH S_UseD LAY EXECUTION OF THE 
ae te R PROGR FOR B sept ee oe IME 
SE 


T 

rene 

REGISTER ie Soe ME INNER LOOP Is 
XIMA RILLI’ SEC. 


SERVICE ROUTINE: INTSRV 


THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 


OUTPUT---- 


*INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
THAT MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR. 


ROUTINE : CYCLE 


TINE OE fore TO_ POINT ro. Me 
ee area as 


SEG 0017 
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SEG 0018 


: 


ce 


663 
670 ;#THIS PROGRAM ING THE pots MRINDEC SYSMAC 
ere adte CRATNDEC- tT SBoeneecs) “Gonis 1 
623 - SBTTL OPERATIONAL SWITCH SETTINGS 
675 # SWITCH 
e278 ; * en2eaeoeoe a 
b58 S ty 
679 i+ 13 ero fee OUTS 
;# ll 
;# 18 
3% 
Hal 8 Et IN SWR<7:0> 
-SBTTL BASIC nce 
: #INITIAL SS OF THE STACK POINTER ### 1100 ### 


001100 STACK 


“eguiy GAT ERROR =: BASIC: BEFINETEON OF ERROR CALL 


F ZONTAL TAB 
F RETURN TURN-LINE FEED 


LInrT Rect 


Does 177876 See Te REGISTER 


ges 
=> 
Bone | 
un 
nn 
Ty 
— 
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zi 


‘oa USRSESUSINEREEEERDOEEEE 
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AXGENERAL PURPOSE REGISTER 
BOBDet Rl= ng T 
= c J 
Bes = | i 
R4= %4 TER 
710 RS= %S T 
oi. = % T 
516 eos . . 
= 
318 ented Bez % K POINTER ER 
716 -#PRIORITY LEVEL DEFINITIONS 
717 ooo0000 bro= ts) ;PRIORITY LEVEL 0 


SVOVA PIT '1e-Bec-77 Oersa) 1% ease Ger instrons “oO Seo 0019 


71 
71 


ESRD SBS 
4444444 
<<<<<<< 
i cc 

ah 
NOU Cw 


BB2ZSBBB 
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ws wc eee eres ce 
or 
roe 


STER” SWITCH DEFINITIONS 








EEEPEEEEEE ES 
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BIT DEFINITIONS (BITOO TO BIT1S) 


VWs 


Seese} 
vs 
nunnnnuD 
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y Vv 
‘auly i: Bite 
[EQUIV BIT4 
“BRUTY t 
" Vv : 
 #BASIC - TRAP VECTOR ADDRESSES > om 
= «© 
ve =z 10 fir AND ar GAL TRE FRUCTIONS 
TBIT ca14 730 
Weee 14 4 ie TRAP (BPT) 
OT = : 33 4+ ttl TRAP ( 107) ##SCOPE 
= ee 
MT 33 ATOR FRAP (EMT) ##ERROR## 
FRarvec= 1 Eanes TRA fre” ‘= 
reves §o Hemet 
PI C= Tifekaur REQUEST VECTOR 


ILLMEM= 4 
= 





GISTER 


R 
= 
gE T= RS 
1 10 175610 


: THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS 
A777 77 RETs = 

R= 
Nee ee ttt 5 5-15-5-5-5 toh -5-5 telah teh -b-talahabalahalahabalahahalahaiabaiahabsiahahsishsialaiahel 


|, seunaneusadareneareseestersvoronsouansseansaestertneansesnees 
DATAINT= BIT1S ; 


see I a 
002000 SEC ". : SECGonRY Receive 
a * | 

B 


PS aarp Ren anicch Rnb ita SRE 


MMMM MMMM D 
eee aera 
ONT £ WE O 


| dy la r gngeue 


ONDARY reer DATA 
SuEST TO SE 


; DATA TERMINAL READY 


BARRON Ss 
ad 
Ba 
HF 


RD 
wo 
a" 
o 
8= 


I02 
MaRS B Te OYE -Bec-7r Daseg) SOCtOMe? oa e cer inttions PTO FP SEG 0021 


en ee ee ae ee 
; Messed sereenenennenyesnyranrseeeeaennscenennasnnaenesenss 


REBReS 


os086 EE ce 
sytaded 13 : PARITY ERROR 


>, RECEIVED DATA BITS 


AAA AAA 
eee @eee ee ee ee ee 


7° 
“ 


| 


5p RARER RES SELLERS E SELES RELEASES RASA L AERA E RARER REELS 





UEP RPE ES SE Te7 


or ae 


; MAINTENANCE SET BIT 
; SEND BREAK (CONTINUOUS SPACE) 


TCSR 
m1 ——te eS ores 
* 
ba T14 ..% PROGRAMMABLE BAUD 
113 : / RATE BIT 
teeta Hi ; eM SETTING OF 
. ; SRCERAMAABLE BAUDE RATE 
T 
oo02 T . T TTER READY 
uated Tt H TRANSHETT R INTERRUPT ENABLE 
T 
T 
T 
T 
T 


Ys 
s q 
000001 bnbavs® 


ee ae a cee ee 
ETI Ti tr tiiiitiitttiitit i ittiiititiiiiiriiiiiiiriieii ips eae gy 
; UNUSED BIT1 


RR RR RR Ada at 


@o 
> 
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32 
8 


guagseneamnanoaassToREREEaRERESSS 


ROBERN ON Sos waencunes 
Toe be eb be be ee 
oo WO NOUN £ WHO 


C-22-CvDVA-B 
1S-DEC-77 08:58 


Pll 








MACY11 30( 1046) 


001336 


19-DEC-77 Aa PAGE 23 
BASIC DEFINITI 


a 
LUA = 


ore / 


, TRANSMITTER DATA BUFFER 


Hitt tb-b-tb-b-telet-b-tel-b tol beh S55 tal Salad Sah bel feahabhalabalalelalalalalalalalel 
; FLAG BITS TO BE USE OR CLEARED IN SUSWR. 


ne 
ITY = 
= 4 
s 


AAAs AAA 





an wr ec wr er ree 


i wevTe BOONORY OF SUSWR <4 BITS 


etal Te eee 


sol see RePEc vec 
3 HL CATCH ORLY Lon VECTORS 
oe 8 SOFTENER aBEPERER 


S(E 
ae 5S Sune TO STARTING ADDRESS OF PROGRAM 


.SBTTL a 
5p, Ab ab A ab a a a ab a aa a a a a aa aa aa a a a a aaa aaa aa aaa aaa aa 
; HOOKS REQUIRED BY ACTI1 

s. ;SAVE PC 


$e ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
; rt) ;;2)SET .S52 TO ZERO 
* s$SVPC 4 ReETORE Pee 


-uMte 
-SBTTL APT PARAMETER BLOCK 


SEQ 0022 


KO02 
RAINDECSZ2~CVDVO~B cu77 Dasee: SOCIOM®) OF BERAMeTER BL oF sah: SEQ 0023 


Sl tl bb bald babdal -babntal bb -tabalalaliabalalalahsialaiahsialaiaiaielalel 
| Hanuninyasedevaugeeeaueeauseseseaeueseusnananansnanaeacaeansess 
sss 335ET a 0 BENT TO START OF PROGRAM 
then | point pas I RECT ADDRESS PNTR. 
. $X Lu 


seers dtll pata meta tnearspttanas 
it PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


s fen + BORE GOOREDS OF A rfl pox (BITS 0-15) 

a: + RUN at IN See: OF ST ON 1 UNIT (QUICK VERIFY) 

yee 30; ort ONAL RUN ine <SEts) oF A past tor EACH ROBT TIONAL UNIT 
teno-shifte ;;LENGTH MAILBOX-E TABLE (WORDS) 
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PSUR SEE ES EP EPC 


= 
8888888 
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RORER 
cs 





CvOVER 
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-SBTTL COMMON TAGS 


FT ee it ith bb ibeh-beb-b-bobet-beiat-b-5-$-$-$-b-habal-4-4-4-4-5-beh-tehalahahahaiaiaiaialel 
jp ATHIS T TA OMMON STORAGE LOCATIONS 


NS VARIOUS C 


< > <4377><377> 
lp 


2 SOS Ss SS Se Se Se Os Os Se Se Sees eeee woes Oe We Se We we Os Oe WS we we Se ee wees ee 
2 SO Se SF Se Se SE Se Se SEs eee ee sees woes OO Se Se Se Se SE Se Se Seeseseseses ae 


*SSTTL APT MAILBOX 
LESSEE SSSRSRSEEEREREEEREEE ER EEREREREERERRERES 


43 
Fy 

AL: 
TESTN: 


MSGAD 


i javaveniatianessseesessuseususibenoensnsessussuacsecannensears 


START OF COMMON TAGS 





Hy AE pe th 
Bpese, PERE CO, 
Ansan jineSsAGe Ec 


: rg at ots 


Moe 
porns FEE Re cern Bascg! 2Ocrore? atlaprpr ty von oe Seo 0025 
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ar: BYE GROBL [nea Sree 








ros 


SRARERCORR TREE 





ats 
AEE cose ra! 


OF EQUIPMENT oni ae TEST 





ee Bee BB Be bs Bt Be en he be bm ho Bt fe hm fe Pe Bee Be Pee ee ee ho P= he ee ee Po fh Bo 
Ob 0 = i 0 ee 


FESR TSAR ARRE ORES Be GOONT 


N02 
CURB PTT © 1e-Bec-77 Besse OM) ehRoR BotnTER tABLE Seo 0026 


-SBTTL ERROR POINTER lt 
ony nf TORE ar cee 


ens Rien a a a 
"h are pommel 


5 
5 
: 
; 
5 
; 
; 
; 
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g 
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1s 
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omstVoO 






__festack ifn STACK 
SBT 1 UAB eee AE LOCATION oles BE CLEARED 


oe 
MP ne 3 s DONE? 
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Ree mre eee 


ae be ee be ae ee he ee ee ee 


i SEF he THe STACK POINTER 
CTOR FOR SCOPE ROUTINE 
CTOR FOR ERROR ROUTINE 
ZVECTOR FOR TRAP CALLS 
A FAILURE VECTOR 









+ 


4+ 4+ 4 





REACH RBESR REINSRTRERS | 


+ 


£ 
£ 


+ 


Finis 


ee ee ee he ee ee be ee bb 0 0 ee 
¢ : AF ¢ 
psd 





CN acl tec ene 





eee 
£ 
— 


B03 
RAINDECEZZ-CVDVA-B na oe ACEE 301 Ote) DEC Toe THE COMMON TAGS SEQ 0027 
001532 001012 BNE «6S BH. OUT TRAP OCCURRED 
T UP is 


POINT TO SOFTWARE SWR 


’ 
Mile : 
4y 64S: (SP) 
0015 hey 
a 
;RESTORE ERROR VECTOR 
; 
: 
; 


uy 
ae =f Se ECISTER 


itive oie PP oom St os 


Kee 


ReasSSs F288 TY Sado dameweaeRes WER Pease EXEER! 
Ott 
a 
as 


ve 
3 
4 
o 
y 


p 
8 
aie 
4 





177777 33F 
i 012362 900042 NDAD, aa42 i T-11? $. 
, 
1 001672 HH ete ING 
/ TWARE T 
1 — va ved sat Bede UNDER XXDP/ACT? 
i 33 f. UNDER APT? 
i 33 ay #cn REG SELECTED? 
i vn 33 SETTINGS 
: : #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
. GET OVER THE ASCIZ 
, —_— iigos* eRsciz O88 F> aD-22-CVDUA-B&<CRLP> 
1 . LET INITFLAG := #1 
: 012767 O00001 010344 ume MOV $1, INITF 
i OE Ting Na = ; CALL CYCLE ; NO ARGUMENTS--ADORS -> NEXT ADDRESS 
_ ; ADORS+2 -> XT VECTOR 


-GET UNIT ss 
LET DLADD := (AORS)+ 


GET UNIT VECTOR 
LET OLVEC := (ADRS) 


LET ADRS := DLADD 


-RCSR = DLADD + O 
LeT CSR := DLADD 


LET RBUF := DLADD + #2 


012167 177324 MOV CADRS )+, DLADD 


011167 177322 MOV (ADRS) , DLVEC 
016701 177314 MOV DLADD, ADRS 


016767 177310 177312 MOV DLADD, RCSR 


Beever boode 177 AbD 8B, ROOF 


ee 2 he ae he Be Be ee Be be et Be me Be eB be Be bb = bb = = = Po be hh ee 
em he Be Bt be Bb 0 Bs Be Be eB fe Fe be pe be he fs Pe hb Pb Be fe be be he Bb ho oe 


VERE BSSLFHEGHAS SEVER POR Bye RR PON Boe Vou cu OSB VR 2a 


LET TCSR := DLADD + #4 


z 
& 
s 


° 
~- 
— 


CO 
CEZZ-CVDVE-B ony Hecegt BOC tOMe ot OE oe FOR SOPTWARE SHITCH REGISTER SEQ 0028 


tee ; ir i wi fesR T TCSRHI := DLADD + #5 
77es8 roy LAND, ToSRAT BMS oie 
‘ res nov LAND TUF 


MOV @RSSTACK,RS 


LET TBUF := DLADD + #6 


LET RS := @RSSTACK 
; ;BRESET 


ee ee et ee 
ee ee eee 





~ 


3 


ee ee 0 bb 0 bb eb be Be eb eh = ee 
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vOVA-B MACY11 30(1046) _19-DEC-77 3 PAGE 30 
1S-DEC-77 08:58 Tl ADORESSABILITY SEG 0029 


96 eH SEG ME Ob BE a ab ba a a a a a ab a a a a a a a a a a 2 HE 


TEST 1 cee TELS TUE SOORESS G8 PLACED IN mesPonns 


RB RES HRESPrETPPRIAIDE ay cer pag, oon 


MOV DLADD , ADRS 


MOV R1,-(SP) 

MOV 8 MRL 

MOV eIN (R1)+ 
7, (RL) 


Uv) 
oa 
be 


en a ee 


DER oB SERRE STEARATE SSIS IAIN Be 


UP: & mm Bee 


+* 


me ee ee wc we we 


ers 


; SET UP INTERRUPT 
SETVEC &ILLMEM, SINTSRV, #PR7 





MOV 
MOV (SP)4,R1 
ape : LET I := #0 
REPEAT 
$1: 
BGNSUB 
MOV #64S, SLPERR 
sCLEAR FLAG 
LET INTFLAG := #0 
CLR INTFLAG 
114 005711 TST ADRS stiaguadansgges 
116 IF INTFLAG NE #0 THEN 
1 005767 007626 TST INTFLAG 
rt 001401 BEG 
; FATAL ERROR 
124 E 1, ,NOOL 
1 104001 ERROR 1 
: a ENDIF 
1 ENDSUB 
1 LET I := 1+ #2 
10 1 062767 000002 177136 ADD #2,1 
13 ‘ } ar om LET ADRS := DLADD + I 
13 002140 eae 175 ide PeORS 
1% O02144 UNTIL I EQ #8. 
iS O0c144 026 177122 000010 CMP : #8. 
16 B02 1 1353 BNE i 
17 O21 CLRVEC_ILLMEM 
1 1 1 MOV R1,-(SP) ;;PUSH RI ON STACK 
1 1 MOV -(5P) ::PUSH Re ON STACK 
1 1 oo0004 MOV SICLMEM,R1 
1 MOV 1, 
1 ooo002 ADD ; 
1 21 MOV (R1)+ 
174 CLR (RI) 
176 es MOV (SP)+,R2 ;;POP STACK INTO R2 





MAINDEC-Z2-CVDVA MACY11 30(1046) _19-DEC-77 H PAGE 31 
CvOVAB.P11 18-Bec-77 be: 58 Tl ADORESSABILITY SEQ 0030 


1226 002200 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
4 peoTsT ;END OF TEST 
1363 32 PEPHSHEKMAAKHKHK KASEY SSRESRHKEKEKHRERA LE ERERAEEERCSKAREREEERKEEAG ESE 
1 >& THE FOLLOWI ST *READ WRITE’ BIT 

163) g Be Ae Me Ob ab aE aE BE aE a aE a a a a a a a a a aa a aa a a a a a a a HE a 
1233 


FOS 


MA C-22-CVDVA MACY11 30(1046) _19-DEC-77 
CVOVRS. Pll 18-Bec-77 be: 88 12 BREAK Ro: *Fcsko Sete CLEAR, RESET SEG 0031 
; LUTEST Ewan TSR Gels LEME RESET oe ag 


mK - TC EAR 
e NOTE: THE (H) J Rist REMOVER FOR THIS 
cs a, 2 earn oe aagepmRe REN 


BOS504 Ote7e7 0 176 i mov #10, $TIME ;;00_10 ITERATIONS 
paste 18583 Boonoe 17e>e0 MOV eae Set i 320, %e4t NUMBER IN APT MAIL BOX 


; SEE IF IT IS oes 
002220 
002220 012767 O02226 176662 MOV #64S , SLPERR 


. BREAK DID NOT CLEAR IN TCSR 
inBrao 4, , DIDNOT 


1 104004 ERROR 4 

14 ENDIF 
14 $s: 

14 ENDSUB 


1 

153¢ 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

i Baeeee a - os on IF #BREAK SETIN JTCSR THEN 
7 

i gage te ty Bo 0|OtCS 

1es0 : AK DID NOT RESET IN TCSR 

1251 ERRHRD 2, ,DIDNOT 

1 104002 ERROR 2 

1 ENDIF 

1 $3: 

} ENDSUB 

1 ; TRY TO SET BREAK BIT 

1 DO2Z24C BGNSUB 

1 N02240 012767 O02246 176642 MOV #64S, SLPERR 

1 LET QTCSR := JTCSR SET.BY sBREAK 

i 052777 000001 177010 BIS SBREAK, ITCSR 

1 ; STUCK TO O 

1 go2es' F #BREAK NOTSETIN 3TCSR THEN 

1 032777 000001 177002 BIT SBREAK, JTCSR 

1 002262 001001 BNE $4 

1 : AK DID NOT SET IN TCSR 

1 3 3, ,DIDNOT 

1 104003 ERROR 3 

1 ENDIF 

1 $4: 

: ENDSUB 

1 ; TRY TO CLEAR A SET BIT 

1 002266 : BenSUB 

i 002266 012767 002274 176614 MOV 864S, SLPERR 

1 ooze?" LET @TCSR := JTCSR CLR.BY #BREAK 

1 042777 000001 176762 BIC SBREAK, JTCSR 

1 ; SHOULD HAVE CLEARED 

1584 bas308 77 000001 176754 ; BREAK, aTCSR - en ee See ee 

i 00231 639401 a He : 

1 

1 

1 

i 

1 

1 


GO3 


E 
ENDTST 


aa C-22-CVvDvA MACY11 30(1046) _19-DEC-77 08: 
Cc -Pll 12-fec-77 bes e8 13 BREAK +23 sho ser CLEAR, RESET SEQ 0032 
: ; NOW SEE IF RESET CLEARS IT 
i 012767 002322 176566 MOV #64S, SLPERR 
1 LET @TCSR := JTCSR SET.BY sBREAK 
1 052777 000001 176734 BIS SBREAK, JTCSR 
1 - ISSUE BUS RESET 
1 BRESET 
1 ooooos RESET 
1 IF #BREAK SETIN JTCSR THEN 
1 932777 000001 176724 BIT sBREAK, JTCSR 
1 1401 Q be 
1 » BREAK DID NOT RESET IN TCSR 
1 et S, , DIDNOT 
1 104005 ERROR 5 
1 ENDIF 
1 Sb: 
1 
1 
1 
1 
1 





5; RARER R RES SESRERAAERELSSSSSSASLKAAALELELESERLAAA REAR ELE EH 


HO3 





MAINDEC-22-CVDVA-B MACY11 30(1046) _ioee-77 08:25 PAGE 34 
CVOVAB.P11 1S-DEC-77 08:58 MAINT - TCSR2 SET, CLEAR, RESET SEO 0033 
1316 ; teppegeeneeosoegenasssnnennvesteneenngeengntrannneesssssssnn 
1 ; 14 + tg. Peep aa Pe EMR TTT 
i 1g 176604 810, STIMES $300. 10 ITERATIONS 
131 176616 HOV #3, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
1 : F IT 
13 ; SEE IF IT IS CLEAR 
i 1 176520 MOV #64S, SLPERR 
1 IF MAINT SETIN @TCSR THEN 
i 176666 IT BHAINT, STCSR 
1 ; MAINT DID NOT RESET IN TCSR 
1 ERRHRD 6, , DIONOT 
1 ERROR 6 
1 ENDIF 
1 $?: 
i ENDSUB 
1 ; TRY TO SET MAINT BIT 
1 Bass 012767 002410 176500 MOV 864S, SLPERR — 
i é LET @TCSR := JTCSR SET.BY sMAINT 
1337 OO02410 052777 OO00004 176646 BIS SMAINT, JTCSR on . 
138 902% 16 . UHStNT NOTSETIN @TCSR THEN 
1 1 000004 176640 BIT SMAINT,aTCSR 
{3ue sealant bursty: “se =“ MAINT DID NOT 15ET IN TCSR 
1345 002426 énfnnD 7° 1b ONO 
i 104007 ERROR 7 
1 ENDIF 
i $10: 
i ENOSUB 
1 ; TRY TO CLEAR A SET BIT 
1 poe430 : BenSUB 
i 1 012767 002436 176452 MOV #64S, SLPERR 
1 goe436 LET @TCSR := BTCSR CLR.BY #MAINT 
i 042777 000004 176620 BIC SMAINT, JTCSR 
i 7 Sosy 777 000004 176612 BIT aMAINT, JTCSR maINT "Se ” RN aTCSR = 
i 88146 = sib MAINT DID NOT CLEAR INTCSR 
1 goeuss éRRHAD 1 10, , DIDNOT 
i 1 4 104010 ERROR 10 ane 
Lies Bases sur: 
i 56 ENOSUB 
1 ; NOW SEE IF RESET CLEARS IT 
1 po24sé BGNSUB 


I03 


MAINDEC-22-CVDVA- MACY11 30(1046) _19-DEC-77 08:25 
ONDE CE TE -CvOve-Bec-77 06:50 T MAINT - TCSRS set, CLEAR, RESET SE@ 0034 
; 0024S 012767 O02464 176424 MOV #64S, SLPERR 
1370 4 LET  aTCSR := STCSR SET.BY NT 
i eetes 0s2777 oDD004 176572 BIS BMAINT, ATCSR ‘ — 
1 . ISSUE BUS RESET 
1 BRESET 
i a IF SMAINT SETIN JTCSR THEN 
1 p00004 176562 1 SMRINT, ATCSR 
1 . MAINT DID NOT RESET IN TCSR 
1 iRRHRD 11,,OIDNOT 
1 ERROR 11 
1 ENDIF 
1 $le: 
1 ENDS 
i ENDTST 
i 
1 $ SSeS ELSA S SALAS LALA AAAS ELLA ELAR A ELLER EERE EE EERE 





JO3 


ROENDE CE TE CVO VE-B ca77 Daseg: SOC1ONe) {JS-DEC-77 WITTE > TCORE SET, CLEAR, RESET SEQ 0025 






t : ; # ora MHITIC» Teams SET GUERRA, ESET 
i iit ee 
139 O 176442 #10 MES 3300 1 
13% Boooey = izeues MOV sa $feStN i8e, ¥e8t Lape IN AT MATL BOX _ 
134 #PR7, -( $sBUT 
135 poe se HOV #64S; -( He PUT fed 4 pe as Bares, 
139 RTI 
i : 64S: 
1 ; SEE IF IT IS CLEAR 
1 : bENCUB 
i 002S44 176344 MOV #6S$, SLPERR 
1 IF SXMITIE SETIN @TCSR THEN 
i 000100 176512 IT SXHITIE, STCSR 
1 : XMITIE DID NOT RESET IN TCSR 
1 Fea) 3s T 
14 ERROR 12 
14 ENDIF 
14 $13: 
i anna 
1M ; TRY TO SET XMITIE BIT 
14 176324 MOV 864S, SLPERR 
14 LET @TCSR := JTCSR SET.BY sXMITIE 
14 176472 BIS SXMITIE, JTCSR 
14 ; STUCK _TO O 
14 IF #XMITIE NOTSETIN @TCSR THEN 
14, 176464 BIT sXMITIE,@TCSR 
iq sie -” XMIT DID NOT RESET IN TCSR 
14 iRRHRD Da, DIDNOT 
14 ERROR 13 
14, ENDIF 
14, $14: 
i eens 
af . 
1M ; TRY TO CLEAR A eee! 
14 176276 MOV 864S, SLPERR 
14 LET @TCSR := ATCSR CLR.BY #XMITIE 
14 176444 BIC SXMITIE,aTCSR 
14 5 9 HAVE CLEARED 
14 Seu IE SETIN @TCSR THEN 
iM 176436 IT SXHITIE, ATCSR 
1 - XMIT DID NOT CLEAR IN TCSR 
1 ERRHRD 14, ,DIDNOT 
1 ERROR 14 
1 ENDIF 


ne C-22-C 


Cc 


ee se ee ae ee ee ee ae ae Pe ae be ae Pe ee Pe ee 


SSECERSER ESR NRR NON nSS SEs 


-Pll 


1 


a. 





vOvAaA MACY11 30(1046) _19-DEC-77 
OB ec-77 be: 58 T4 


KO3 
1F9E°> TeSRE SET, CLEAR, RESET 


XM 
$15: 
ENOSUB 
; NOW SEE IF RESET CLEARS IT 
002640 176250 MOV #64S, SLPERR 
LET @TCSR := JTCSR SET.BY sXMITIE 
000100 176416 BIS eXMITIE,3TCSR 
; ISSUE BUS RESET 
BRESET 
RESET 
te SXMITIE SETIN @TCSR THEN 
000100 176406 r SXNITIE, BTCSR 
: XMIT DID NOT RESET IN TCSR 
ERRHRD 15, ,DIDNOT 
ERROR 15 
ENDIF 
$16: 
_ 
ENDTST 


55 AE AE EAE ab a a a a ea a a a a a a a a a a a a a a a a a a a a aa a a a a a a aa aa aa a 


SEG 0036 


CvOVea. 


C-22-CvDvA 
Pil 


18-Bec-77 


meet 


30( 1046) 





LOS 


9-DE 
hr CEC 77 nee fitcri BET, CLEAR 
Te LRT RIE RT 


2% EH 
if TEST § 
+ NIT c gONB LTT 
i he oy ah BEd too 
3 BE IN FOR THIS TEST TO WORK. 
fe geet 
f Vv #10, $TIME ::00 10 ITERA 
He} est $320, Test ONO N APT MAI x 
TSETIN THEN 
be 20s 
$17 
EXIT TST 
BR” i EXIT THIS TEST 
re HEMT BS 
, ; TRY TO CLEAR OTR BIT 
MOV #64S , SLPERR 
as ont enene LET  @RCSR := ORCSR CLR.BY sDTR 
; ; STUCK TO 
R SETIN @RCSR THEN 
By seyreanese 
; OTR DID NOT CLEAR IN RCSR 
iRRHAD 1D MB TONOT 
ERROR 16 
ENDIF 
$20: 
ENDSUB 
; TRY TO SET OTR 
MOV #64S, SLPERR 
LET  @RCSR := @RCSR SET.BY sDTR 
BIS #OTR, ORCSR 
IF #OTR NOTSETIN @RCSR THEN 
Biz ggyteorcsn 
TR DID NOT SET IN RCSR 
é 17, ,DIDNOT 
ERROR 17 
ENOIF 
$21: 


ENDSUB 
; TRY TO CLEAR 17 Aen N 
MOV #64S, SLPERR 
BIC #OTR,@RCSR 


LET @RCSR := ARCSR CLR.BY sDTR 


SEQ 0037 


MO3 
COBURE EET OYE Bec-77 Faseh! SOC1ONe? ,AS-DEC-77 08: Fea gr, cLeAR 





1 ; HAVE ARED IT 

) - STOTR SET IN ShESR Puen 
BIT BOTR, BRCSR 

i ' . TRO T CLEAR IN RCSR 

1 inBtino IB MB IDNOT 

i ERROR 20 

i ENDIF 

1 

i enoTsto 

1840 

1841 4 5 ARRAS RESALE REARS REA AERA EARLS REAR A EERE RR LER REAR REE ES 


URE Bec-rr BAL! IO 






012767 903106 


RRRLE Ves KRSS 
— 
8 
ray 


eee Se 


012767 003134 


a be ae Be a Be be Be em ee be be be Bb 0 ee ee Be ee Pe Be be bb bo eb ee eh ee 


176186 
176152 


176102 


176022 


176164 


176002 
176144 


176136 


1785754 
176116 


176110 


‘NO3 


9-DEC-77 : 40 

te RESEND ~ Rese SET, CLEAR, RESET 

; piegeneunnsenenescsssssesesssssensasesenqusngesssesesssqereeenen 
;#TEST 6 - ae, 


te TH ST S THAT IN 
ESSERE ERESEES ESSERE ES SESE EE EERE ER SERRE RRERRRERE EE 
+éte: 


$23: 


SUG etn Le 


RFD, SUSUR 
ee: EXIT TST 
Tat? 33 ;EXIT THIS TEST 

ENDIF 


; SEE IF IT IS ee 
1SUB 
#64S , SLPERR 
IF @REQSEND SETIN @RCSR THEN 


#REQSEND, ARCSR 
eet ; REQSEND DID NOT RESET IN RCSR 
ipRure OO eT ONOT 


21 


ENDIF 
ENDSUB 
; TRY TO SET REQSEND BIT 
864S, SLPERR 
LET @RCSR := BRCSR SET.BY sREQSEND 
SREQSEND, ARCSR 
: STUCK TO 0 
IF Q@SEND NOTSETIN JRCSR THEN 
BREQSEND, ORCSR 
; REQSEND DID NOT SET IN RCSR 
os innninee 22, ,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO CLEAR A oaeeuBt 
#64S, SLPERR 
LET @RCSR := ORCSR CLR.BY #REQSEND 
SREQSENO, ARCSR 


ir + SUREGREND SETIN DRCSR THEN 


SREQSEND, ARCSR 
$26 


SE@ 0039 


MORE CE TZ CVO VER cue Bacegt SOC1ONe? ,p9-DEC-77, ORi5- Rese SET, CLEAR, RESET SEQ 0040 





104024 ERROR 24 
ENDIF 
$27: 
se 
ENDTST 


$5 EAE ESE AE a aE ae ee aE a a Ea a a a a aaa a a a EE EEE 


1 : RE DID NOT CLEAR IN RCSR 
1 innniae MB Bt ONOT 

i ERROR 23 

: a ENDIF 

1 ENDSUB 

1 

: > ; NOW SEE IF RESET CLEARS IT 

, pesiey 012767 003162 175726 MOV #64S, SLPERR 

1 0031 LET QRCSR := BRCSR SET.BY #REQSEND 
1610 00: 185 0S2777 900004 176070 BIS SREGSEND, IRCSR 

161 - ISSUE BUS RESET 

i612 00; 170 BRESET 

1613 0031 oooo0s RESET 

1614 1 IF @REQSEND SETIN @RCSR THEN 
1615 000004 176060 T #REQSEND, ARCSR 

ipis — a - REQSEND D T RESET IN RCSR 
1618 éRAHRD oo, OT PONOT 

16 

1 

1 

1 

1 

1 

1 

1 

1 


sy te 


MAINDEC-22-CVDVA-B MACY11 30(1046) _19-DEC- ae. rece we 
CvDVAB 17 SECXMI SET, CLEAR, RESET SEQ 0041 


-Pll 1S-DEC-77 08:58 





1 3: 3 ert peter NIT | ROSAS SET. CLEAR, RESET 

i 4% i ity tteesnscornabttacstentenessnssansesssbosssnsbassssesseasees 

1 OPE 

13) BORER BITE? mooie 75704 RSW" s1O,STINES ——;sD0,IDLITERATIONS os ant pox 

1 ; SEE iif Is Brean 

tee RE a 

i 012767 003230 175660 MOV #64S, SLPERR 

1 0032 IF SSECXMIT SETIN @RCSR THEN 

1 00 3¢ 000010 176022 git BSECXMIT, ORCSR 

+ Boma “— 2). XMIT DID NOT RESET IN RCSR 

ips bpRno Be DBP oNoT 

i 104025 ERROR 25 

16s wae ENDIF 

tes — 

1648 ; TRY TO SET SECXMIT BIT 

1645 BGNSUB 

1656 012767 003250 175640 MOV 864S , SLPERR 

1 LET  @RCSR := SRCSR SET.BY #SECXMIT 

1 052777 000010 176002 BIS #SECXMIT, RCSR 

1 ; STUCK TO OD 

1 IF #SECXMIT NOTSETIN @RCSR THEN 

1655 032777 000010 175774 BIT BSECXMIT, DRCSR 

1687 ; SECXMIT DID NOT SET IN RCSR 

i ° alte 9 Bs ERRHRD 26, ,DIDNOT 

tee <b be ENOIF 

iee3 — 

1 . TRY T AR A SET BIT 

1664 ; 0 CLE oak 8 

1666 012767 003276 175612 MOV #64S, SLPERR 

1 LET @RCSR := JRCSR CLR.BY #SECXMIT 

1 042777 000010 175754 BIC sSECXMIT, JRCSR 

16 ; SHOULD HAVE CLEARED 

167 IF @SECXMIT SETIN @RCSR THEN 
000010 175746 BIT BSECXMIT, ARCS 

ieoa = ics = . XMIT D T CLEAR IN RCSR 

1 003314 ° ipBtnd BF OR PoNoT 

1 003314 104027 ERROR 27 

1 003316 ENDIF 

16 003316 $32: 

16 003316 ENDSUB 

1681 003316 BGNSUB 

1682 003316 012767 003324 175564 MOV #64S, SLPERR 

1 ; NOW SEE IF RESET CLEARS IT 


oO 
2: 
“oO 


0 0 0 0 0 0 0 ee 


SREBSBSRR LOS BoB GRRE 





-22-CVDVA MACY11 30(104%6) 19-DEC-77_ 08: 43 
Pll 12-BeC-77 bess8 Secunif- Rosh SET, CLEAR, RESET SEQ 0042 
LET @RCSR := ORCSR SET.BY sSECXMIT 
BBsasy 052777 000010 175726 BIS #SECXMIT, IRCSR . 
- ISSUE BUS RESET 
BRESET 
oooocs RESET 
IF SSECXMIT SETIN @RCSR THEN 
932777 000010 175716 T SSECXMIT, ARCSR 
~— 9 CXMIT DID NOT RESET IN RCSR 
inBtino TH OB TDNOT 
104030 ERROR 30 
ENDIF 
$33: 
gyosue 
ENOTST 


5p RRR RRR EERE REARS REESE REE EEE 


E04 


MA MACY11 30(1046) rt -DEC-77 44 
CvOVAR<PIT Pit re-Bec-77 be: 58 batate = ReSRE SET, CLEAR, RESET SEQ 0043 
Te ae amen 4 age oo ae eee eS; enmenmmmcanncmme 








1704 

1706 ;&TE DATAIE - RCSRS SET, CLE 

1707 ; tn a 

1 eee 12767 000010 1 MOV #10,STIMES + #20 TERAT 

1709 12767 cavity 13eeos MOV 010; StESTh tise T TEST TEROMBER IN APT MAIL BOX 

1710 : F tT Is LEAR 

1718 ieee 012767 003372 175516 MOV in 

1714 00337¢ IF SDATAIE SETIN @RCSR THEN 
1715 00337¢ 000040 175660 BIT aDATAIE, IRCSR 

1716 003400 1401 BEQ $34 

171 : i DATATE DIO NOT RESET IN RCSR 
i318 S838 104031 ERROR 31 

fe ae = aa 

17 ‘ ENOSUB 

i ; TRY TO SET DATAIE BIT 

1 003412 175476 MOV 864S, SLPERR a 

: mye seal ani mere LET @RCSR := ORCSR SET.BY #DATAIE 
1 — - , — ; STUCK To o 

1 IF TAIE NOTSETIN ORCSR THEN 
i 000040 175632 BIT SOATAIE , ARCSR 

1 : DATAIE DID NOT SET IN RCSR 
17 30 ERRHRD 32, , DIDNOT 

1 104032 ERROR 32 

1 ENDIF 

1 $35: 

17 ENDSUB 

1740 ; TRY TO CLEAR A SET BIT 

174 903432 BGNSUB 

17 012767 003440 175450 MOV #64S, SLPERR 

1744 p03440 LET @RCSR := SRCSR CLR.BY #DATAIE 
irae 042777 000040 175612 BIC SDATAIE, ARCSR eal 

134 Bose C00040 175604 BIT SDATAIE, ARCSR aba ALE it — pe 
1ou8 639401 Bra $36 : 

4 DATAIE DID NOT CLEAR IN RCSR 
1 ERRHRD 33, , DIDNOT 

1 104033 ERROR 33 

1 ENDIF 

1 $36: 

i ENDSUB 

1 ; NOW SEE IF RESET CLEARS IT 

1758 . SE ans 

1759 003460 012767 OO3466 175422 MOV #64S, SLPERR 


ROT CSTE -CVO VERB ooze AACLA! SOC1ONG) |18-DEC-77 OPES CRS SET, CLEAR, RESET SEQ 0044 


1 

13e0 003466 LET @RCSR := ORCSR SET.BY #DATAIE 
176¢ 003466 052777 OO004O 175564 BIS SDATAIE, ARCSR 

1 - ISSUE BUS RESET 

i762 BBE ooooos nese? a 

1768 o6 IF SDATAIE SETIN ORCSR THEN 

i 932777 o00040 175554 IT SORTAIE, ARCSR 

1 : DATAIE DIO NOT RESET IN RCSR 
17s Feats 54D DNOT 

ee 0 104034 ERROR 34 meee 

: $37: 

ae poser ENDTEY 

1338 

17793 g ME aE A Me a ae ae ae ea a a ae a a a a a a aaa aaa aa aaa 


GO4 


MAINDEC-22-CVDVA-B MACY11 30(1046) _19-DEC-77 :25 
CODURE Prt 1S-DEC-77 08: Til Revate - Resne eer, CLEAR, RESET SEQ OO4S 
BPEUGKELKRKSSEKKESEKSEEEAESHSETERESREEHERRRERSHHREERERSLERHHERE RHEE 








1 3 
‘ite 

; Tago ppemnpeemere opeegmpemenimt TA 2 

i dee HOV Ts STESTR + OOO aT NUMBER 

i 4 sit! T wits s ereas IN APT MAIL BOX 

1 SE RCUB 

i 175354 MOV 08, orem 

1 IF @RCVRIE SETIN @RCSR THEN 

1732 175516 $4 a. ,» aRCSR 

1 RCVRIE DID NOT RESET IN RCSR 

17a ERRHRO 3S, , DIDNOT 

1 ERROR 35 

17s ENDIF 

i aris ENDSUB 

15¢9 

ioe ; TRY TO SET RCVRIE BIT 

1 175334 MOV #64 , SLPERR 

1 LET @RCSR := ARCSR SET.BY #RCVRIE 

1 175476 BIS SRCVRIE , ARCSR 

1 ; STUCK TO O 

1 IF @RCVRIE NOTSETIN @RCSR THEN 

1 175470 eit @RCVRIE, IRCSR 

1 $41 

1 RCVRIE DID NOT SET IN RCSR 

1810 ERRHRD 36, , DIDNOT 

181 ERROR 36 

181 ENDIF 

181 $41: 

rt ENDSUB 

1 1 ; TRY TO CLEAR A SET BIT 

181 snes Barisua 

i 18 74% 012767 O03602 175306 MOV #64S, SLPERR 

1 360 LET @RCSR := ARCSR CLR.BY #RCVRIE 

1 360 17S54S0 BIC SRCVRIE, ARCSR 

1 ; SHOULD HAVE CLEARED 

1 IF @RCVRIE SETIN @RCSR THEN 

t 175442 iT — » IRCSR 

bee TE re COT CLEAR IN RCSR 

1 ERROR 37 ay 

1 ENOIF 

1 $e: 

t ENDSUB 

1 ; NOW SEE IF RESET CLEARS IT 

1 poses BGNS: 

1835 3622 012767 003630 175260 MOV #64$ , SLPERR 


MAINDEC-22-CVOVA-B MACY11 30( 1046) a a 08: 2S a 
CvOVAB. P11 1S-DEC-77 08:58 RCVRIE - RCSR& SET, CLEAR, RESET SEQ 0046 


003630 LET @RCSR := ORCSR SET.BY #RCVRIE 
003630 052777 000100 175422 BIS @RCVRIE, ARCSR 





- ISSUE BUS RESET 
BRESET 
RESET 
IF @RCVRIE SETIN @RCSR THEN 
932777 000100 175412 T BRCVRIE,, BRCSR 
1401 Q $4 
RCVRIE DID NOT RESET IN RCSR 
ERRHRD 40, ,DI 
104040 ERROR 40 
ENDIF 
$43: 


poses enorfgeste 


; Ag i a 
* THAT PRESET Minit) EONITYAL IZES READ ONLY BITS. 
» LOREESEESESSOAEAESTESOEERSERASESHASSERASHERE HORS CHEEEORELOEEE 


DOD MDDmmmmm@@@DDDDD@@ = p= wee 
daa Kuk eee SERS RS ICN 


I04 
RAINDECEZE-CVDVB-B cage Hered SOclOMe? ,1Z-DEC- 77 PeifaT RCVROONE - RCSR 7 - IS CLEARED BY INIT SEG 0047 


5 5 ab gE aE AE ab A ab a a a a a a a a a a a a a a a aaa aa a a a a aa aaa a a a a 
iATEST 12 TEST THAT RCVRDONE - RCSR 7 - IS CLEARED BY INIT 
7g Riemann rere eammNNRE TS ETE 


Gbaees Bigre? 00010 175276 RSV S1Q.STINES DO ID_TTERATIONS oo wars pox 


BGNSUB 
Bo3e70 012767 003676 175212 MOV #64S, SLPERR 
76 IF SRCVRDONE SETIN JRCSR THEN 
76 932777 000200 175354 BIT #RCVRDONE , IRCSR 
1402 BEG $44 


;RCVRDONE SHOULD HAVE CLEARED BY INIT 
RCVRDONE DID NOT ofpnot IN RCSR 


Bo370e 104041 ERROR 41 ; iyi 


yeuepe veer 


1 
1 ooooos RESET 
Bae ENDIF 
1 $44: 
*ALLOW LOOPING AFTER ERROR 


oo37i8 enosts 


ANF 


es ee ee ae ae ae a ee Be be ae Bae em be ae ee ne eo ee hee ee hw ee he he ee 


3 
§ 


estas eT ht, 


MOOOODOODON 


ee 


WONTON £ WO 


Da et ee me ne be ae be ee ae be ee ae ee se ee Pe ee Pe ene ee ms ee ne nw nw 


BRO NSS 


MACY11 30( 1046) rt -DEC-77 3 49 
08:58 Test THAT XMITRDY - TCSR 7 - IS SET BY INIT SEG 0048 


gggeeepeuasssnseseonnnennannsnsosnenrogeungenstenesnneycee 


13 T XMIT N 
12 ie Dae ee 
4 012767 O00010 1752 #10, $TIMES :D0 10 ITERATIONS 
oo 12767 ewitee 13528 MOV oi Seca PISeT O et R IN APT MAIL BOX 
283538 — 
012767 003736 175152 864S, SLPERR 


IF SXMITRDY NOTSETIN @TCSR THEN 


ss 
By 
5 
§ 
ge 3 


eXMITROY, ITCSR 
$4S 


REE RDY OI ONT FEN TCSR (AFTER RESE 
bRRURD 42, HRESET, DIDNOT 


ERROR 42 
ALSSUE ANOTHER RESET 
RESET 
ENDIF 
$4s: 
-ALLOW LOOPING ON ERROR 
CKLOOP 


ENDTST 





MAI 
C 


bo ft bm be ba Be be ban be Pe he = Pe Pe hm be b= ho bm ee Pe Rh bP be bh eh ee he 


aA AUR EEE RS RP REA ac] 


C-22-CvDvVA-B8 
1S-DEC-77 08:S8 


-Pll 


ee 





s 
NN 


Y11 30( 1046) 


KO4 


19-DEC- :25 ones 
T14 fest THAT DA INT - RCSR 15 - IS CLEARED BY INIT. 


eee e eerie eee e eee ET OT OORTRINT = RCSA 16 ~ 1S CLEARED BY INIT 


;&TEST 14 


RCSR - BY INIT. 
zs ga 7 (emma taaazamapeate ee cmmeaas narnia Yi ico 


STs: 


175112 MOV 
175254 BIT 
BEG 
ERROR 
RESET 
S46: 


sia; Stestn 


#64S , SLPERR 
sDATAINT, ARCSR 
S46 


43 


+ eT TEaT NUMBER IN APT MAIL BOX 


BGNSUB 
IF BDATAINT SETIN @RCSR THEN 
ERRHRD 43, HRESET, DIDNOT 
; TESTING EFFECT OF RESET ON BIT 
: DATAINT NOT CLEAR IN RCSR 
ACL Ou A PRESH START 


ENDIF 
CKLOOP 


enorst 


5p See SARA ALLEL LALLA LALA AERA RARER REE 


SEQ 0049 


C-22-CVvDVA 
Pit 18-DEC-77 


12767 
12767 
7 

1 
7 
11 





SoeSLEVESSRE LESS 


be Be be be be = om he he 


Rau ERS 


pect 30( 1046) 


DOOD 19 


0000 1 





17S032 


175174 


LOY 


rio -OEC-77 Perea, RevRAct - RCSR 11 - 1S CLEARED BY INIT 


;* 


38 FEET Te saneneeibesitietastsnbenetitietinnattashietetualai 


tét1 


$47: 


$so: 


git 


" 


RESET 


sis; Stésth 


sCABLE , SUSWR 
$47 


ruefzts 


#64S , SLPERR 
sOCVAACT, @RCSR 
& 


44 


+ er PeaT NUMBER IN APT MAIL BOX 


IF SCABLE NOTSETIN SUSWR THEN 
; *T TEST WITHOUT BERG ° 
EXIT 1S . a on oe 


33 ;EXIT ris rest 


BGNSUB 


IF SRCVRACT SETIN @RCSR THEN 


iRRHROD 4, HRESEY, DIDNOT 


; TESTING EFFECT OF RESET ON BIT 
;RCVRACT DID NOT CLEAR IN RCSR 


iat Ou ANOTHER TRY 


ENDIF 


sALLOW LOOPING ON ERROR 
cKLodp 


ENOTST 


SEQ 00SO0 


MAINDEC-22-CvDVA- 
CvOVAB 


-Pll 


F 
i 
: 





- SOc IC 
- 





+high 


uf 





i 






012767 


042777 


1401 


10404S 


8 MACY11 30( 1046) 
1S-DEC-77 08:S8 


000001 


178878 


175102 


178032 


1747S2 


178114 


175106 


MO4Y 
19-0EC-77 


08:25 a 8 
Tis TEST THAT RCVRAC RCSR 11 - 15 CLEARED BY INIT 


; Spogugponecueqsenqooesssosegesssnnsenasnennssaasensonsansnnenne 
& T 4. § FOLLOWING 4 TESTS VERIF 
. THAT I ITTEO 
: 


EOS, RECEIVED, Feeaut Fhe Chete  ssveususeueusususenensnenaes 


«6 ab ab Ob ab A ab Ab ba a a a a a a a a a a a a a aa aa aaa a a a a aa a a aa aa a a a a 
ATEST 16 ald T SETS AND CLEARS 
® 


5 
; THE BE IN FOR THIS TEST. 
jseeeHNsnseanuecesaneseeenenessussasetecssuetcussseuesssianesces 


ithe SHOsBTOORR fi Br PeLTFRORURS in cer vat 90 
If ss acRGLESFRED NOTSE 


TiN SUSMR THEN 


gir SCABLE+FRFD, SUSWR 
; nT EST. WI THOU RG _OR H31S 
iy A uit (=ER} jure Sur: 
EXIT’T 
MOV 81,STIMES 
BR TSt17 3;;EXIT THIS TEST 
ENDIF 
$Si: 
; OTR AND 
; CARDET ARE CONNECTED 
; BY THE H31S OR EQUIV. 
; CLEAR ‘ 
BGNSUB 
MOV 864S, SLPERR 
a H OTR 
. LET CLEcR :2 @RCSR CLR.BY sOTR 
BIC sOTR, ARCSR . . ahapgte 
, SCOROE N ORCSR THEN 
git BCARDET, ARCSR 
Q r 
; CARDET DID NOT 
ERRHRD 4S, , FORCE 
ERROR 4S 
- CLEAR WITH DTR 
ENDIF 
$Se: 
ENDSUB 
; SET 
BGNSUB 


SEQ 00S1 


CVOVAS. 





N 
Bre COVER oop AACA! SOCLONG) |19-DEC-77 08: FET CARDET SETS AND CLEARS 


004156 012767 


004164 


174724 


17S066 


175060 


174676 


175040 


175032 


$S3: 


$S4: 


MoV 


BIS 


T 
Q 


864S , SLPERR 


#OTR,@RCSR 


#sCARDET , ARCSR 
$S3 


46 


ENOT 


; SET OTR 
LET ’ i := ORCSR SET.BY sOTR 


if * SCARDET ROTSETIN SRCSR THEN 


énRSRGELPTPSREE ET 


; WITH OTR 
ENDIF 
ENDSUB 
BGNSUB 
5 AR OTR 
LET SR := ORCSR CLR.BY #DTR 


ret Tee EP CET IN SRESR THEN 
épStind 47 Ponce 


: CLEAR WITH DTR 
ENDIF 


pas 


SEQ 00S2 


MAI Cote Core Bec-77 pace 30( 1046) 


| end 


ae a ris Pe AND CLEARS SEQ 0053 





9-DE 
Pili Tle 
1 Hi Rehed PKRERSSGPSSRSSKKLEABRSLERERRESESESSRESHRRELERELRREREMERERREE EE 
1 $3 Pres SEER ESN ERNE TTT TAT CURE cele WO CLEARS 
is j ATEST T THAT TS AND 
11 3a ( J MUST N FOR THIS TEST TO WORK 
ll © + Bb Ob Mb Ob ME a AG OE OE Sb a ab a SE aE aE aE OE ab ab ba aE a baba a 2b 0a a aa aa at 
HS BREE ERY gece aries crams 0, sRCHTRRTRS 
114 12767 19 1747 v oi9: Stee #BO, 9.4 i dene it 1H wnargnouno 
Le D425 IF ee NOTSETIN SUSWR THEN 
it 174742 Bir SCABLE+FRFD, SUSHR 
WB ; CAN’ T TEST WITHOUT BERG OR H315 
1 EXIT’ TST 
lel 174672 MOV #1, STIMES 
glee BR TSt20 33 ;EXIT THIS TEST 
gles sss: 
21st ; OTR 
: : CLRSEND ARE CONNECTED 
133 ; BY THE H31S5 OR EQUIV. 
13 270 — BGNSUB 
gl 270 012767 004276 174612 MOV #64S , SLPERR 
1 AR DTR 
1 Q0N276 + CLE ReR := @RCSR CLR.BY sDTR 
: 042777 o00002 174754 BIC #O0TR, ARCSR ~ es 
133 004304 ads - os beuelts seneae yr SRO RCEND SE TIN @RCSR THEN 
14 Boats Bar 401 _ Bea £56 retin . 2 not 
is go4314 iRRHED BBS 
he 14 104050 ERROR SO 
1 CLEAR WITH OTR 
si apne - mye 
S156 316 q E 
151 ; SET 
1 ig BGNSUB 
153 Oeste 012767 OO4324 174564 MOV #64S, SLPERR 
1 ; SET DTR 
1 gow324 LET SRCER := ORCSR SET.BY #DTR 
i 052777 o00002 174726 BIS sDTR, ARCSR “a 
1 338 : SRP RCEND COTE T SNe oR @RCSR THEN 
160 032777 O20000 174720 BIT #CLRSEND, JRCSR 
2161 340 001001 BNE $s? 


MAINDEC-22-CVDVA-B 


CvOVAB.P11 1S-DEC-77 08 


1040S1 


oo 888 88 
#3 242 td 


Gime BET 


804370 1040s2 


fu 
ee eee ee eee ee ee be ee be ae he be pee 


POR SSBIRRIOR=B Ia old FIN-SSELERS 


furururururururorurururururorururururururorururororu ru 


o20000 


012767 OO43S2 174536 


Boaes 042777 O0000e 174700 


174672 


$S7: 


$60: 


ERROR 


51 


; CLEAR 
#64S , SLPERR 


#OTR, ARCSR 


ee, eae 


Se 


CO 
MACYI1 SOC1046) (19-DEC-77 00: TS. ECRSERD SETS AND CLEARS 


: CLRSEND DID NOT SET 
ERRHRO 51, ,FORCE 


; WITH DTR 
ENDIF 
ENDSUB 
BGNSUB 
; AR OTR 
LET SR := @RCSR CLR.BY sOTR 


; CLRSEND SHOULD FOLLOW 
IF SCLRSEND SETIN aRCSR THEN 


bnRHRd Se, , FORCE 


: CLEAR WITH DTR 
ENDIF 


pas 
ENDTST 


SEG 00S4 


MAINDEC-22-CVDVA-B 


“Pll 


OE | 


Maeaed ace 
Fe ee he ee te 
WONT £Wl-O 


004472 
004472 


RPP ELESEP SRERE NSS SAS aN 


1S-DEC-77 


MACY11 30(1046) 
o8:S8 


174832 


004436 


040000 


OO4464 


ee we ee esesee 


-DEC-77 


TES 


MOV 
gir 


MOV 
BR 


DOS 


ifer CL RSERD SETS AND CLEARS 


‘Sk Ob Se Sh Ob Ob ab ab ab ab Ob ab ab Ob ab Ob OG ai ab ab aE OE a aaa aaa EEE 
See eee eee eeT THAT RING atic MO CLEARS eee 


20; STESTR 


SCABLE+FRFD, SUSUR 

; CAN'T TEST WITHOUT BERG OR H3 

;_OR WITH (-FR) JUMPER OUT. - 
= aon EXIT’ TST 
ra43] 3;;EXIT THIS TEST 

ENDIF 
; REQSEND AND 
; RING ARE CONNECTED 


; CLEAR 
#64S , SLPERR 


®#REQSEND, JRCSR 


eps. cae 


53 


; SET 
#64S, SLPERR 


#REQSEND, JRCSR 


#RING, ARCSR 


N FOR THIS TEST. 


‘wheat 


HE ( ) MUS 
a Bons acres Sl aeee Me Doretaes 


ike eo nee HR SO Susu THEN 


; BY THE H31S OR EQUIV. 


BGNSUB 
; CLEAR REQSE 
ia” LeCeR := Shcer CLR.BY #REQSEND 
; RING FOLLOW 
IF BRING SETIN @SRCSR THEN 
RING DID NOT 
ERRHRD g , »FORCE 
aoaall CLEAR WITH REQSEND 
ENDSUB 
BGNSUB 
+ Econ. re NORCSR SET.BY #REQSEND 
; RING SHOULD FOLLOW 
IF BRING NOTSETIN @JRCSR THEN 


SEQ OOSS 


CvOVA. 





Ber Oe Booze ABCEE! SOCLONE) 1 18-DEC-77 OCF FRT RING SETS AND CLEARS 


mm Be oe es 


001001 


1040S4 


012767 


042777 


1401 


1040SS 


$63: 


O004S1i2 174376 


oooo04 174S40 


o4o000 §=174532 


ERROR 


$63 
SY 

; CLEAR 
#64S , SLPERR 
#REQSEND, JRCSR 
SRING, IRCSR 
$64 
ss 


- RI ID NOT SET 

iRRHRS BA FORCE 

; WITH REQSEND 
ENDIF 


ENDSUS 
BGNSUB 


; CLEAR REQSEND 
@RCSR := ARCSR CLR.BY SREQSEND 


; RING FOLLOW 
SRING IN @RCSR THEN 


LET 


IF 


: CLEAR WITH REQSEND 
ENDIF 


_ eee 
ENOTST 


SEQ OOSE 


MOE RTE COVE Bec-z7 HACE! SOCLOM) AR -DEC-77, Pei TET RINE SETS AND CLEARS SEQ 0057 


‘Ob bb a a a Sb bE a a a ab EE a 0 aba aa baa a a a aE 
reer ote eee eeer THAT SECREC SETG AMD CLEARS 


BGNSUB 
012767 OO4S76 174312 MOV #64S, SLPERR 


1 * ORC ee me oReee ciR.BY sSECXMIT 
+ SECPEREC SETIN ORCS THEN 


SECREC 010 NOT 
RRHRD CE 


042777 000010 1744S4 BIC @SECXMIT, ARCSR 


og2000 174446 BIT sSECREC, @RCSR 
1 1401 BEQ $66 


é 


+3 
ies a 
oe RERSERSSLSKEREKEESEPESEVKARRERLERAESSERSAADSEKPREERAEEEKESERER ED 
OouE a resid 0 1744 téral: nov aio S 10 ITERAT 
bis5e> ears 1744 MOV oor SteStn ++Re, 98t NUMBER” IN Aer Ma L BOX > 
BONED 932767 O20000 174442 BIT SCABLE, SUSWR “fi bc ROTEETIN SUB THEN 
DOVES 001 ss 
;_CAN’T TEST WITHOUT BERG OR H31S. 
EXIT’ TST 
12767 000001 174372 MOV STIMES 
1 BR tet ;;;EXIT THIS TEST 
30 70 ENDIF 
$6éS: 
; SECXMIT AND 
2305 : SECREC ARE CONNECTED 
2307 ; BY THE H31S OR EQUIV. 
5308 ; CLEAR 
310 
¥ 
15 
14 
1 
rd 
Bg 


104056 ERROR S6 
CLEAR WITH SECXMIT 


ee 2 aes & 
£ 


enpit 
ENDSUB 
3; SET 
BGNSUB 
012767 004624 174264 MOV #64S, SLPERR 
CXM 
+E CeR LS TIRCSR SET.BY #SECXMIT 
052777 000010 174426 BIS #SECXMIT, ORCSR 
ci r serene RO TSE TINT OR @RCSR THEN 
32777 002000 174420 BIT #SECREC, JRCSR 
2339 1001 BNE $&7 
2340 ; SECREC DID NOT SET 


ROE NRE CTE CMO vE-B cor Based! SOC1ONe) {LR-DEC-77, 06; FaT SECREC SETS AND CLEARS SEQ o0se 


2341 oove42 ERRHRD S7,,FORCE 
004642 104057 ERROR 57 
WITH SECXMIT 
44 ENDIF 
yy $67: 
44 ENDSUB 
323 ; CLEAR 
Souead —— 
44 012767 OO046S2 174236 MOV #64S, SLPERR 
; CLEAR. SECXMIT 
Qowese LET SR := @RCSR CLR.BY sSECXMIT 
042777 000010 174400 BIC #SECXMIT, JRCSR 
; SECREC SHOULD FOLLOW 
IF @SECREC SETIN @RCSR THEN 
032777 o002000 174372 IT sSECREC, ORCSR 
001401 Q s 
- SECREC DID NOT 
po¥670 3 60, , FORCE 
104060 ERROR 60 
- CLEAR WITH SECXMIT 
78 ENDIF 
5 $70: c us 
38 DOME TS ENDTET 


Z 


o 


SE Eee 


ya ae at at a at ot oo 
BNO LOS DONTUE 


HOS 


"Test THAT SECREC SETS AND CLEARS SEG 0059 


1 
‘9b A ab OE Se ab ab a ae ab ba ab ab ab ab a a a aa 0a aaa aaa aaa aa aaa aa 
To ar REL REG Wlemes ern soe seen 


EST 22 TS 
5; E bi bere OETA D CLRSEND BY THE H3iS 
PPL! GarPan SOR cteay 


sagtiaagrntteattnesitbententtnanionee 


+8 OPE 
Bieres Bones 134 Rov 339: $t2chn eee Test NUMBER IN APT MAIL BOX 
If ss ACABLESFRFD NOTSETIN SUSUR THEN 


MACY1i 30(104%6) _19-DEC- 


< 


032767 060000 174302 BIT sCABLE+FRFD, SUSWR 
001004 BNE $71 
; CAN'T Test WITHOUT BERG OR H31S 
: OR WITH (-FD) JUMPER OUT. 
EXIT’ TST 
012767 000001 174232 MOV #1, STIMES 
BR TSt23 


;;;EXIT THIS TEST 
ENDIF 
$71: 


000463 
piers BBGRB poy eRG tS} ofa ns eg UR, 


E SURE NOTHING UNEXPECTED HAPPENS 


64S: 
;READ TWICE - CLEARS 
012767 004750 174140 MOV #65S, SLPERR 
; CLEAR DTR 
LET ORCSR := SRCSR CLR.BY sDTR 
042777 000002 174302 BIC #DTR, JRCSR 
WAIT 1 MILLI-SEC FOR CABLE 
WAITHS 
819738 ooc00; rey STR} 
76 BONE re JSR PC’ WAIT 
012605 (SP)+,RS 
; READ RCSR - TO CLEAR DATAINT 
3 :s CSR 
017703 174262 MOV |RCSR RI om ve e 
ae SORTA NT eer in @RCSR THEN 
100000 174254 BIT SDATAINT, ARCSR 
001401 BEQ $72 
READING RCSR DID NOT CLEAR DATAINT 
ERRHRO 61,EDATAINT 
104061 ERROR 61 
ENDIF 
$7e: 
ENDSUB 


SvbvAB-Pil  18-Bec-77 


3 oso 


012767 


1401 








012767 


042777 
Bo1001 


104064 


4 


PPP? 
Zon-3 
: 


MACY1 301046) »43-DEC-77 06 sFR, DATAING (RCSR-15) SETS 


o00S016 





174072 


174234 
174226 


174214 


174032 


174174 
174166 


$73: 


$74: 


$75: 


; OTR SETTING 


#64S, SLPERR 


#O0TR, @RCSR 
TAINT, @RCSR 
$73 


62 


sDATAINT, IRCSR 
$74 


TS DATAINT 


;SET OTR 
LET @RCSR := ORCSR SET.BY #OTR 


IF BOATAINT NOTSETIN ORCSR THEN 
-SETTING DTR D 
é 62,, E 
ENDIF 


NOT SET DATAINT 
TA 


IF SDATAINT SETIN @RCSR THEN 


;READING RCSR DID NOT CLEAR DATAINT 


3 63, EDATAINT 
63 
ENDIF 
ENDSUB 
; OTR CLEARING SETS DATAINT 
#64S, SLPERR 
CLEAR DTR 
LET CSR := JRCSR CLR.BY sOTR 
a IF SDATAINT NOTSETIN @RCSR THEN 
SOATAINT, ARCSR 
:CLEARING DTR DID NOT SET DATAINT 
on ERRHRD 64, ,E2DATA 
ENDIF 
ENDSUB 
ENDTST 


SEQ 0060 


MA 
c 





BET oOo Bec-77 basse. 


Beas 


012767 


i 


017703 


001401 


104065 


1 
1 
1 
1 
1 
1 
1 
1 
1 


4 
: 
7 


Bosive 


005154 
ooo004 
Bowes 


174056 


100000 


30( 1046) 


174026 


173734 


174076 


174050 


Jos 
1h2 eet PFE, DARIN? (RCSR-15) SETS 


ii «PEE REESEHSEESBSRERREREEEERUEGERERRARESERERPEKREAAEREHLEMBERER ERE 
5 jgeveeseonenssnssscsess MAT DATAINT SETS WEN RING SETS 
j ATES T THAT DATAINT RI 
; a "Toa ATA T 
3% ur FOR TEST. 
. S ssquasscnadsanatokananebtnohenathantiohuaetaanotiactiohonseien 
+6123: SCOPE 
mov Sea STESTR + Oe eT RUM en 
MOV ;STESTN :;SET TEST R IN APT MA L BOX oan 
IF bCABLE NOTSETIN SUSHRe THEN 
BIT SCABLE+FRFD, SUSWR 
; CAN’T TEST WITHOUT BERG OR H31S 
OR WITH (-FR) JUMPER OUT. 
MOV #1, STIMES EXIT 151 
BR #485 ;;;EXIT THIS TEST 
ENDIF 
$76: 
MOV 8PR7,-(SP) ; PUT a ae — 
MOV 864S,-(SP) : BUT PUT EH PC H Pe an Oa 
RTI 
64S: 
;START OFF WITH EVERYTHING CLEAR 
BGNSUB 
MOV #65S, SLPERR 
;CLEAR_ RING 
LET @RCSR := ARCSR CLR.BY #REQSEND 
BIC #REQSEND, IRCSR 
WAIT 1 MILLI-SEC FOR CABLE 
WAITAS 
MOV RS,-(SP) 
x aly? 
J wa 
MOV (SP)+,RS a 
; A om 
MOV @RCSR, RB 
MIA 
IF TA SETIN @RCSR THEN 
BIT SOATAINT, DRCSR 
es vobed RC NOT CLEAR DATAINT 
iRRHRO es” ER APAINT 
ERROR 65 
ENDIF 
$77: 
ENOSUB 


; SET RING --> SET DATAINT 
BGNSUB 


SEQ 0061 


CVOVA 





CBF CVO ve car? Hareg! FOCHOME) 23 -DEC-77 oP iFar DATBINY SETS WHEN RING SETS 


00S214% 012767 OOS222 173666 











174030 
174006 
104122 
$100: 
Spaces 012767 OO0S264 173624 
104123 
$101: 
000400 





MOV 


ERROR 


864S, SLPERR 
WE ORE SE SETTING RING 
i SET RING := @RCSR SET.BY #REQSEND 
#REQSEND, RCSR 
jHALT 1 MILLI-SEC FOR CABLE 
WAITAS 
RS,-(SP) 
Hi 
(SP)+,RS 
IF SDATAINT NOTSETIN @RCSR THEN 
BORTAINT, BRCSR 
«SETTING RING DID NOT SET DATAINT 
é 122,, E2DATA 
122 
ENDIF 
ENDSUB 


;CLEAR RING C S NO CHANGE IN DATAINT (CLEAR) 


#64S , SLPERR 


@REQSEND , RCSR 


WAI TAS 


-( 
-(RS) 
aA 

»+,RS 


sate @RCSR 
$101 


IF 


123 


7 *CUERR ane 
= @RCSR CLR.BY #REQSEND 
ent 1 MILLI-SEC FOR CABLE 


®@DATAINT SETIN @RCSR THEN 


-CLEARING RING SET DATAINT 
iRRnRD 123, CLRRNG 


ENDIF 


ers 
TST24 $5 5EXIT HIS Test 
ENDTST 


SKIP AROUND MESSAGE 


SEQ 0062 


CVOVAB PLt Pi mr ore Bec-77 Oe: 





30( 1046) 


173080 
173652 


173602 


173660 


173476 


173640 


173616 


hy e775 PHAR, DATAINT SETS WHEN RING SETS SEQ 0063 
Fi dehehehehebshehehchebehehebeichebeheicichebehebchebehebehchebetebebehehehebobehoietetebehehsieieheiieiedeieheheiedebeiobe 


MPH TTT Tritt itetr tite 
;#TEST 24 TEST THAT DATAINT SET N SE 
Oe eee oe tena 
° #10,$TIMES 3;00.1 
ooa' StESTR 300, ws Pde Tete rz Cee rhe uEaeanouno"* 
- TIN scr THEN THEN 
Bre si02 : *T TEST WITHOUT BERG OR H315 
_ a grins exit’ 1Sh" . 
BR t 3;;EXIT THIS TEST 
. ENDIF 
$102: 
nial fai 9 ie NO INTERRUPTS 
MOV seus’ -(eP) PUT FEW PC W be on §F gy ST 
RTI 
64S: 
; START FRESH en 
LET AGkER := SRESR CLR.BY #SECXMIT 
BIC #SECXMIT, @RCSR 
LET R3 := @RCSR 
MOV @RCSR, R3 
;SET SECREC --> DATAINT SET 
MOV #65S, SLPERR 
;SE 
green ss '= ORCSR SET.BY #SECXMIT 
BIS SSECXMIT, ARCSR 
{WAIT 1 MILLI-SEC FOR CABLE 
WAITMS 
MOV eat 
#1,-(RS) 
He 
(SP)+,RS 
IF SDATAINT NOTSETIN @JRCSR THEN 
BIT SOATAINT, BRCSR 
TTING G_SECREC 0 cD : NOT SET DATAINT 
ERROR 124 A 
ENDIF 
$103: 
ENDSUB 


;CLEAR SECREC --> DATAINT SET 


MOS 





MAINDEC-22-CVDVA-B MACY11 30(1046) 19-DEC-77 08:25 PAGE 65 
CVOVAB.P11 1S-DEC-77 08:58 Te4 TEST THAT DATAINT SETS WHEN SECREC CHANGES STATE SEQ 0064 
Boeuse a 
012767 OOSYSY 173434 MOV #64, SLPERR 
poset LET oS SRe o EE RCSR CLR.BY sSECXMIT 
042777 000010 173576 BIC SSECXMIT, ARCSR 
-WAIT 1 MILLI-SEC FOR CABLE 
WAITHS 1 
eet 4 
ante J : ual . 
pig Td aoe (SP)+,RS 
IF BOATAINT NOTSETIN @RCSR THEN 
932777 100000 173554 BIT SDATAINT, ARCSR 
— int EARING SEC D NOT SET DATAINT 
bfRFRO Tas EsbatA 
104125 ERROR 125 
ENDIF 
$104: 


1 
1 
1 
1 


pes 
ENOTST 








C-22-CVDVA 
-Pll 


racy 1 30( 1046) 
8-Bec-77 08 


012767 





173510 





175482 
173460 


173414 


173334 


173266 


rhqPEC-77 FFE DATRINY SETS WHEN SECREC CHANGES STATE 


pepeeeerere ere e ree re tees 
See eee eet THAT 


ét35: 


$105: 


CLRB 


a8 


$106: 


MOV 


SEG 0065S 


9 96-06 2 0 a bb a a bab a ab ba a 2 a a 
b-b-ted-b-behad SeSeeSeSSeaSeeueseeseuseesesseeess 


Be heya 


TIME. 


see Ssteein + OO ETF TRUMGER IN APT MAIL BOX 


; THIS TEST STEN SeTIN SENV THEN 


SAPTENV, SENV 
$105 

in open EXIT TEST 
ra+S2 IT THIS TEST 


bAbtF 


RR 
TRY Pir vEay ope sever 
} SINCE UART FrERS ITS INPUT) 
seep sorgrere 


e64S 


aTBUF 
;WAIT A reek Fon 
> XMI By fo T IN TC 
cauL TIMER x 9.867 eiTITRBY, TCSR, #SET> 
RS af | : 
#eT, ~( 85) 
eXMITROY,-(RS) 
tack 
. 1+, T ERROR IF BIT DID 
T REET LENBI TION RO IN IME LIMIT 
aan IF. aig: 
-XMIT RDY DID NOT SET IN TCSR 
pant T 
66 
ENDIF 
ENDSUB 
BGNSUB 
#64S, SLPERR 


ig ex HME TAY Tet y RAT XRITROY "HS crear 


TT 


ROINDECSZZ-CVDVE-B coor Hacegt SOC1ONe) 42-DEC-77, 06 sFaT Knit a - TCSR 7 - CLEARS 





Ag8077 173442 





33 
1 
1 177777 
1 7 
1 
14 
12605 
103001 
104070 





173426 


$107: 


$110: 


ERROR 


aTBUF 

NOP 
SXMITROY, STCSR 
$10 
67 
RS,-(SP) 
SSET,-(RS) 
Sze) -(5) 
sXMITRDY,-(RS) 
8 tak 
CS)e Re 
$110 
70 


cr HRD FER Ones 


; GIVE IT TI 


IF ab SETIN @ Re case gyemen em 


ARO by, -BTONG ror CLEAR IN TCSR 


ENDIF 


IF.ERROR THEN 


-XMIT RDY DID NOT SET IN TCSR 
ERRHRD 70, ,DIDNOT 


ENOIF 


pppoe 
ENOTST 


SEG 0066 


mA -22-CVDVA-B -DEC- 
MAINDEC=2Z2-CVDVA-B___, MACYA1 SOC1OMG) _49-DEC-77 D6iFEr Knit RBY - TCSR 7 - CLEARS SEQ 0067 


ede ttetetetttntettatetetnpetntnttnbeteteabetettedthbatehebtabebbabebetteeftate 
jieeeeaueneeeeensasecessses 9b Bb Oh Ob 2b 0b bb ab Ab a bb ab a ba a a a a a a 


See EE PLE EO (ne ITER or rr 
PESsee GTEC? gogo 7a ORY SUD-ETINNS © 80,0cdT FUR wer mao 
oooo04 


mary NANCE BIT 


905714 LET aTcsh Fe Tote Y SMAINT 
14 052777 173342 BIS SMAINT, @TCSR 
005722 BGNSUB 
805722 (012767 005730 173160 MOV #64S, SLPERR 
: SEND A CHARACTER AND LET IT WRAP AROUND 
905730 LET STBUF :B= #0 
105077 173334 CLR8 dTBUF 


WAIT A MAXIMUM OF SO MSEC 
FOR RCVR DONE TO SET IN 


SR 
‘ALL TIMER IN <#SO0, #RCVRDONE,RCSR, #SET> 





1 -(SP) 
1 177777 ,~ (RS) 
1 7331 -(R5) 
1 -(RS) 

ther 
12685 "he 

-DIDN’T TegeT IN TIME 
.ERROR T 
103001 Bcc $111 
RCVRDONE DID NOT SET IN RCSR 
104071 ERROR 71 é mata 
ENDIF 
$111: 
ENOSUB 
BGNSUB 

012767 005776 173112 MOV #64S, SLPERR 

: NOW THAT IT IS T ste F JT CAN BE RESET 

: THIS At So WILL CLE HAIN .B 
ooooos RESET 

IF @RCVRDONE SETIN ORCSR THEN 
932777 000200 173252 BIT #RCVRDONE , ARCSR 
1401 BEQ $iie 


SLLSLLULereretinert city tc eR ANBBARRR CT arated 


bRRERD Soe, DIDNOT RESET IN RCSR. 


006010 


ROENQE CE ZZ-CVDVE-B cue Hace gt SOC1ONe) ,2e-DEC-77, 00; FRr OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) SEQ 0068 


10 104072 ERROR 72 
i? le ENDIF 


Ot Ble $lle: NDSUB 
5 Beet ENTE? 


E06 


MA C-22-CVvDVA MACY11 30(1046) _19-DEC-77 : 
CyOVAR. Pll 18-bec- 77 08 38 126 tes? THAT Out PUT ING A CHAR FROM TBUF (WITH MAINT SET) SEQ 0069 
 Aclebehebehoteheheheheteishehebeheieletebeheteheheheieheteiehehebeheieheheiheieieheieieheieleheieheheisheheishehebeheehehel 


: ; ESLESBEERSSHRESERE LASHER SEE KER EAS ERMASEEREKSSLERRASUEMEREYE ERED 
:&TEST 27 TEST THAT RCVRDONE IS NG RBUF 
is cand. g RPO PRE o> rpg TE Ins 
Otg7e7 1731 "MOV #10,STIMES ;;D0 1 
13585 Naveed 133188 MOV oo9' STEIN +32, 9b T RomBeR IN APT MAIL BOX 
T MAINT. BIT 
LET aTcsh ~ atc bef! BY #MAINT 
052777 O00004 173226 BIS #MAINT, aTCSR 
012767 O06044 173044 MOV #64S, SL BR sateen 
; QUTPUT HARACTER WITH MAINTENANCE 
; SET, AND AND GATT FOR XMITRDY 
OUTPUT A CHARACTER 
Let ATBUF :B= 80 
105077 173220 CLRB  aTBUF 


WAIT MAXIMUM OF MSEC 
FOR RCVRDONE TO IN 


? RCSR 
CALL TIMER IN <#SO00, SRCVRDONE,RCSR, sSET> 





8 syesses 
seis 
; 


76 PC, TIMER 
— (SP)+,RS DID IT T BECAME READY? 
IF. ERROR 
ames ate DID NOT SET INRCSR @ 
iRRMAD oS, - DIDNOT 
104073 ERROR 73 
ENDIF 
$113: 
ENDSUB 
; NOW THAT IT IS SET LETS SEE IF READING THE 
: BUFFER CLEARS RCVR' ‘ 
-READ BUFFER 
o LET RO *B- @RBUF 
117700 173152 MOVB @RBUF , RO 


18 932777 000200 173142 BIT ERCVROONE . ORCSR IF @RCVRDONE SETIN @RCSR THEN 
1 1401 BEQ ’ 
EREVRDONE ID NOT CLEAR IN RCSR 
ERRHRD 74,DIDNOT 
104074 ERROR 74 
$114 ENDIF 
ee . 


BRRRERe Ran GRORORaaeaatees cuNaER 
RR BRgRRRR: 


ENDTST 


w 


ROINDECEZZ-CVDVA-B o-77 ACER! SOC1ONG)  13-DEC-77_ 00; FR RCVROONE IS CLEARED BY READING RBUF SEQ 0070 


Tee ttt ttttetetettobttetatettebettattteeatetetaetntebtereeteet 
iteer So iret THAT ReVRACT ~ RCGR ll ate eee 


if 

Hee ee RLS tar it ag Seb Oe. 
iy CLEARS WHEN 

se  snnngeunconscstacteectcnessteeqsesenseaecuscessaansncaveneces 





122 +$T30: SCOPE 
1 12767 000010 173026 MOV #10, 19. STINES $300 19. ITERAT ONS 
1 12767 000030 173040 MOV >: SET R IN APT MAIL BOX 
; THIS TEST oe ’ BREAK HALT’ SINSATIVE. 
b140 TENV SETIN SENV THEN 
>| : 7 000001 173046 BIT SAPTENV, SENV 
51 EXIT TEST 
51 12767 000001 173002 MOV #1, STIMES 
51 BR TSt31 EXIT THIS TEST 
pt $115 ENOIF 
| ° LET 3TCSR := JTCSR SET.BY sMAINT 
51 052777 000004 173076 BIS #MAINT, JTCSR 
Bl LET RO := SCLR 
51 012700 oo0000 MOV #CLR,RO 
51 LET R1 := #0 
. venoms = HARACTER INTO TBUF 
thar? FOR Of REVERE T TO SET 
SEND A CHARACTER 
Let STeUF :B= 80 
173070 CLRB aTBUF pias 
$116: 
IF @#RCVRACT SETIN ORCSR THEN 
004000 173052 IT BRCVRACT, , @RCSR 
LET RO := #SET 
177777 MOV #SET,RO nol 
aca BR $120 
. LET R1 := R1 + #1 
ied - ENDIF 
$120: 
UNTIL RO EQ #SET OR RI HI MAX 
177777 CMe RO, SET 
000124 aed 5} MAX 
ee BLOS Sile 
y IF Rl HI MAX THEN 
000116. CMP R1, MAX 
BLOS $122 


v 


;1T NEVER SE 
;RCVRACT DID NOT SET IN RCSR. 


rp 


CVOVAE<PIT ~ 18-Dec-77 08:58 


104075 
017700 173012 


ae 





RREEUEE Tes SSeO ERE 


-_ 






35 








GO6 
aot Tee Teer FAY RCVRACT - RCSR 11 - SETS 


172702 


172772 


172762 


1727Se 


172640 


172726 


$l2e: 


$123: 


$leb: 
$1es: 


$124: 


$127: 


ERROR 
MOV 


MOV 
BR 


ERROR 


MOV 
BR 


ERROR 


SEG 0071 
ERRHRD 7S5,, DIDNOT 


75 
LET RO := @RBUF ; CLEAR BUFFER 
ORBUF , RO 
EXIT TEST 
#1 STIMES 
TSt31 3;;EXIT THIS rest 
ENDIF 
;CHECK FOR TIMING OF RCVRACT. CLEARING 
:VS RCVRDONE SETTING 
WHILE #RCVRACT SETIN @RCSR DO 
SRCVRACT, IRCSR 
$124 


IF #RCVRDONE SETIN @RCSR THEN 


$125 
IF @RCVRACT SETIN @RCSR THEN 

SRCVRACT, IRCSR 
$126 

aa RCVRACT 
- et er DONEACT 

NO CONT INUING 

‘ aa TST 
#1 STIMES 
TSt31 3;;EXIT THIS TEST 

ENDIF 

ENDIF 

ENDDO 


$123 


sRCVRACT = O NOW. 
iF SRCVRDONE NOTSETIN @RCSR THEN 
SRCVRDONE , IRCSR 


$127 
DID NOT SET IN RCSR 
- ERRNAD 77, ,DIDNOT 
»SET IT BACK. 
ENDIF 
EST THAT READING THE RECEIVER 
FER CLE CVRDONE 


HOG 


MAINDEC-22-CVDVA-B MACY11 30(1046) 19-DEC-77 08:25 PAGE 73 
CVOVAB.P11 1S-DEC-77 08:58 ™30 TEST THAT RCVRACT - RCSR 11 - SETS SEQ 0072 
-READ CHAR. 
006336 LET RO := SRBUF 
006336 017700 172720 MOV @RBUF , RO 
IF @RCVRDONE SETIN ORCSR THEN 
932777 000200 172710 gir BRCVRDONE , IRCSR 
1401 Q $1 
sRCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 100, ,DIDNOT 
104100 ERROR 100 
4 ENDIF 
4 $130: 





Fis 

39% p00401 BR TST31 ;;;EXIT THIS TEST 
ae MAX: 70000 

2393 006360 ENDTST 


CvOVAB. 


<= 


S| iat t 
Pll 





OB ec. 77 pert 30( 1046) 


Bte7e7 
12767 


012767 OO06404 172504 


172660 


000001 172472 


I06 
hg ee Fee FET ReVARICT - RCSR 11 - SETS 


HE hel 
jATes 
+6731 


$131: 


ERROR 


MOV 
BR 


31; STESTR 


s64S, 


@TBUF 


;NOW SEE IF 


Sb Me Hb A a ai aE bb aH ab ab ba ab aba a aa aaa aa a 0a aaa a aa a aa 
eeeeeeteeee Nee ne OLN BT - ar ie 


HE OVERRUN BI 14 
Seuvaeuaeuseusscuonsaenaseaeenednarnsennesnennanuatnenaessess 


ae eee T NUMBER IN APT MAIL BOX 


BO DEL Ave BE THEEN FOR FOR RECEPTION. 


,QUTPUT 1 CHARACTER 
LET i OU +B :B= #80 


AWAY FOR 200. M SEC 


watt 200. 


;OUTPUT 2ND CHARACTER 
LET STBUF :B= #80 


sLET OVERRUN HAPPEN 
WAITHS 200. 


“READ BUFFER AND ERROR BITS 
LET AY := BRBUE 


IT DION’T SET 
F #ORERR NOTSETIN 


RY 
- ORERR 01D NOT SET IN RBUF 
ERRHRD 101, ,DIDNO 


THEN 


: COMPOUNDING ERRORS 
EX? 7§1 
3;;EXIT THIS TEST 
ENOIF 


ENOSUB 
ERROR BIT SET WITH OVERRUN ERROR: 


SEQ 0073 


evovne 


ee ee ee HOO . 


meee 


tue 





C-22-CvDVA 


Pil 


me ee eee 
COOL 


E 


iS-Bec-77 08:58. 


012767 


104103 


000432 


012767 


006476 
100000 


006546 


172516 





30( 1046) — 


172412 


172444 


172364 


172530 


172342 


172466 


$133: 


JO6 
TEST THE OVERRUN BIT - RBUF 14 SEG 0074 


IT 


BGNSUB 

#64S, SLPERR 
IF #ERROR NOTSETIN RY THEN 
sERROR, RY 
$132 
“ éFrRS PA, "BtoReT ™ FOUF 
ERR SET. 

#1, STIMES iS 4 a Wi 
13433 3; ;EXIT THIS TEST 

ENOSUB 

BGNSUB 
#64S, SL 


; CHECK R REAL RBUF TO SEE IF ORERR IS STILL SET. 
IF SORERR NOTSETIN @RBUF THEN 


SORERR, JRBUF 
$955 
ARED ORERR. 
-_ ifenko 103, Tcl 
SKI P REST OF TEST 

TST32 3;;EXIT THIS ap 

ENOSUB 

BGNSUB 
#64S, SLPERR 


;NOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 


: A CHARACTER AROUND. 
LET 3 :B= #0 


~—e ET IT CIRCULATE 
war Ths 300. 
-(SP) 
#200. .-(RS) 
Feast 
IF SORERR SETIN QRBUF THEN 
sgn nour 


ORERR DID NOT CLEAR IN RBUF 
1 DIDNOT 


CVOVAE 


Os Ob BB Pe bP 0 PP 0 Fh FO BP 


VRRZER=BZ 


C-22-CVDVA 


-Pll 


006876 





is 


“Bec-77 payee 30( 1046) t ema 


104104 


100000 172444 


$134: 


$135: 


KO6 
test THE OVERRUN BIT - RBUF 14 SEQ 0075 
ERROR 104 
;-AFTER RECEIV ANOTHER CHAR 
éxit TST rest 
33;EXIT mas ye 


Bea 827S 


IF SERROR SETIN @RBUF THEN 
err #ERROR, ORBUF 


ae ERARES PIB, "BTORMA™® 1 ROU 
ERROR 105 : 
ENDIF 
BR TST32 33 ;EXIT HEE res 


ENDTS 


eas! 


Ww 


ee ee see ne Be se a Bs Be ae ee De a Be ae be Bee Be Bere ae es Be eae a ens fae mee Da ft ae a fame fe he ae ee ee fe es ee ee ee 


SHH BSBIRR PON BIS eA PIN SSS LERTER— BSE VERLOR-ESSESFHESAH-EBB 2 


-22-CVDVA 
Pil 





18-Bec-77 06:88" 


6000i7 
172316 


007124 


172310 


30( 1046) 


172314 


LO6 
ee Fes FE OvERSUN BIT - RBUF 14 


ee 
“+: 


_— Se ee ee ee esos 


7 


$136: 


$137: 


$141: 
$140: 


grr 
BR 


T 
Q 


CLR 


‘9b OSE A Sb ab ab a a a aa aa a aaa a aaa aa a a aa a a a 
Deere eNNEEeE ST OORATLE BD RATE Iesr 


Feeleint tin 


NEW T I THAN 
peeuacussssaeuacensecnssesentesseseceesecsessessionsssessucssese 


$49: StEctR #1821 'Febr nreen N APT MAIL BOX 
ens: SETIN SUSHR THEN 
$130" 
EXIT TST 


rh4$3 iS 3; EXIT THIS TEST 


THIS TERT SABTENY SETIN SENV THEN 
SOBTENV, SENV 


e grins EXIT TEST 
TSt biiEXt" THIS TEST 


LET OLD := #-1 


#-1,0LD 
rye LET OLD+2 := @-1 
s LET @TCSR := STCSR SET.BY #MAINT 
8MAINT, JTCSR vets ae 
- INCR R3 bEGs oB't0 81S. BY #1 
$140 
R3 
$743'*- 
LET RO := @RBUF 
@RBUF , RO 


Ler AYCORNT SBS RATESIR) 


-FLAG 
LET ity := 80 


: OUTPUT TH CHARACTER 
LET STBUF := 


wrod fos COUNTER 


RATES(R3) , ATCSRHI 
BIT 


aTBUF 


SEQ 0076 


MO6 


MAINDEC-22-CVDVA-B MACY11 30(1046) 19-DEC-77 08:25 PAGE 78 
: T32 PROGRAMMABLE SEQ 0077 





$150: 


CVDVAB.P11 1S-DEC-77 08:58 BAUD RATE TEST 
LET NEW := #0 
005067 000212 CLR NEW 
; 10 CLR newer LET NEW+2 := #0 
sername? cage —_ WHILE BIT EQ #0 DO 
905708 “ ‘TST IT 
1014 BNE 144 
IF @#RCVROONE SETIN @RCSR THEN 
774 932777 p00200 172256 BIT BRCVRDONE , BRCSR 
;DONE_- iT§ READY 
LET BIT := #1 
‘ 012702 000001 MOV #1,8IT asa 
19 000404 ine BR $146 
. ;OTHERWISE-INCREMENT TIME 
wrapge i 005267 000160 INC NEW piled inglities: 
i O76 LET NEW+2 := NEW+2 + CARRY 
; Oraes 005567 000156 ADC NEW+2 pe 
$146: 
*SIGNALS DONE 
007022 END0d 
D07022 000762 BR $143 
eurge $144: 
Bere. oy pao at meee IF NEW+2 LO OLD+2 THEN 
95808; Sits Psered , “ 
ELSE’ 
Bros! ooow2 sivr, OR SSO 
: » NEW+2 >= OLD+2 
tf NEW+2 EQ OLD+2 AND NEW LO OLD THEN 
7 000136 000140 one NEW+2, OLD+2 
000124 000126 WW, OLD 
i 1 SHTS $isi i 
ELSE’ 
Rone BR $1S2 
; ;NEW+2 > OLD+2 OR 
j (NEW#2 = OLD+2 AND 
* aAuID RAT : ’T CHANGE 
et 126, BRUDRA E 
104126 ERROR 126 ee 
$152: 
, ENDIF 


UNS OYE Bec-ro BBY IN 


+_¢ 4 4 


ala 











SOc 
+ ¢ 4 ¢ 
= 


1 

1 

1 

B07 1 

x 1 

as 1 

OC 1 

as 1 

OC t 

oe 1 

OO 1 

B07 140 

Di 18 

x ia 
144 
1 
1 
i 


es 


000112 
000106 


172144 





NOG 


1A ee ocRBAAROLE Saud RATE TEST SEQ 
- UPDATE OLD TIME 
0 Let OLD := W 
_ —_— LET OLD+2 := NEW+2 
MOV NEW+2, OLD+2 
ENDINC ;BAUD RATE 
hae $141 
_— LET R3 :B= SUSWR+1 AND #17 ; PUT BAUD BACK 
Re Hee 
ET JTCSRHI :B= RATES(R3) ; LIKE HE WANTED IT 
MOVB  RATES(R3),3TCSRH 
EXIT -SKIP TABLE 
BR TST33 3;;EXIT THIS Test 
QT carr” MOVE INTO THE 


og 


AAA 
he 


4444 


BAUDRATE : -ASCIZ /BAUD RATE 





x et 
ING 


Isr gr. 
FSET INTO TABLE 


bee be bee bre rere WOU 
NOU LSWM-O 


DIDN’T CHANGE. / 


ENDTST 


0078 


CVOVAS. 
3307 


-ZZ-CVvD 
Pll 


B07 
YE-Be care HACEg! SOCLONe?  13-DEC- 77 OGRAMARBLE BAUD RATE TEST 


SEG 0079 


MAINDEC-22-CVDVA-B MACY11 30( 1046) 43 ECT oomeLe tut 
c -Pll 1S-DEC-77 08:S68 T RATE TEST SEQ 0080 


Me Ae a AE AE ab ab ab a a a a a a a a a a a a a aa a a a a a 


VOVAB 
3308 ; 
at ib b-b-b-b-teh-beb-b-b-b-bet-b-hehad-b-b-f-hah-b-f-b-haliahahahaiahahaiatahatatahetahatel 
19 jar ST IT TER, INTERRUPT obPabare Teer 
ig 3a 96 irde I F L é WORK 
13 i# 8) IORITY OF O 
Bi 4% ) BU WITH INTERRUPT ENABLE CLEAR 
1 > PRKPEFEKLAEGARHRSHAKEREKALKRKERHEEREEHRELESRA SERA RE ERERRERRHKHRER 
1a bo73;B Breve? 171742 WStSd: PE e ernes 10 ITERAT 
3313 SorSie Bi 7 Riiviees 171754 MOV $49" Stecth +320, 98} NUMBER IN APT MAIL BOX 
sCLEAR ’INT T OCCURED’ FLAG 
go7ees LET INTFLAG := #0 
005067 002520 CLR INTFLAG 
:GET VECTOR ADORESS 
po7230 LET R3 Lyte 
016703 172022 MOV DLVEC,R3 
;FOR THE TRANSMITTER 
go7es LET R3 := R3 + 84 
062703 o00004 ADD #4,R3 
-SET VECTOR TO POINT TO TRANS.SRV AT PRI 
1 SETVEC R3, #IN , &PR7 
101% MOV R1,-(SP) 
i i fan) nov a TERY (R1)+ 
12711 Ba a5 MOV (RI) 
12601 MOV (SP)4$,R1 
por See 012767 007264 171624 MOV #64S, SLPERR — 
: :CLEAR INTERRUPT ENABLE 
007264 LET STCSR := BTCSR CLR.BY SXMITIE 
007264 042777 000100 171772 BIC SXMITIE,@TCSR 
1 Mov 8PRO, -(SP) PUT NEW AFEt.77 10 0 
BOF ere Oe ae agate MOV secs’ - $6} > PUT ‘et be SN STACK 
ay 907 30¢ o0d002 ts) RTI +:;POP NEW PC AND PS 
-NOW SET I.E£. BIT 
907308 LET STCSR := STCSR SET.BY sXMITIE 
052777 000100 171752 BIS SXMITIE,@TCSR 
-LET INTERRUPT HAVE TIME TO OCCUR 
‘g war Ths 308 
5 RES ene RY Sea Stas, 
7 J PC WALT 
12605 a SéSe RS 
:DID EXACTLY NTERRUPT OCCUR 
3305 B07 35e 026727 002416 o00001 CMP INTFLAG, #1 = ri FCA ne ™ Ten 
3363 007334 001406 BEG $is3 





MAINOEC-2Z2-CVDVA-B MACY11 30(1046) 19-DEC-77 O08 
CVDVAB.P11 1S-DEC-77 08:58 T33 TRANSM 
3364 
7 767 O024%06 TST 
Bese goer? 18] 
104106 ERROR 
000401 BR 
$1S4: 
B 104107 ERROR 
$1SS: 
el $153: 
3384 
ae 012767 007360 171530 MOV 
00S067 002364 CLR 
ae 042777 OO0100 171672 BIC 
Be a 
6SS: 
33 “~ 
ey 
HOV 
TST 
BEG 
ERROR 
t $1S6: 
1g RESET 
14 
3415 
18 MOV 
ny 
3419 MOV 


DO? 


:25 

ITTER INTERRUPT LOGIC TEST SEQ 0081 
NO, WAS IT 0.0R MORE THAN ONCE 
fF INTFLAG EQ THEN 


ng 

; TRANSMITTER DID NOT pears IN TIME 
om. ERRHRD » »,DIDNO 

ELSE 
$1ss 

; TWIC 

sT rer te TWICE 

E 107, , TWICE 

107 

ENDIF 

ENDIF 


seit 
; INTERRUPT WITHOUT INTERRUPT ENABLE SET 


4§, RR 
eye ty j CLEAR "INTERRUPT OCCURED’ FLAG 
INTFLAG LET INTFLAG := 80 
- CLEAR INTERRUPT NABLE 
@XMITIE.@3TCSR LET ASKER $= CSR eR ey @XMITIE 
sPRO ($e) PUT NEW PS ON 1 eset SHOULD OCCUR. 
8658; -(5P) + PUT Ned : 
re :}POP NEW PC AND BS 
: IT TO HAPPEN 
wartie se 
RS ae) 
#e, -(RS) 
Spee ks 
; IF INTFLAG NE 80 THEN 
pagers 
. INT RRUPT OCCURED WITH I E CLEARED 
110 é 110, NOTENAB 
ENDIF 
BRESET 
ENDSUB 


cL ,RESTORE VECTOR AREA 


RVEC_R3 
se} /PUBH RL Bh ETH 


CREE Oe Bece77 basse, To tONe? A *O-72, 08 PE AE LOGIC TEST SEQ 0082 


ooo002 ADD Re 
1 HOV 1)+ 
1 )+,.R2 ;;POP STACK NT Re 
= 12601 nov iB. RI POP etack IN Ri 


007460 ENOTST 


ui 


WORE Be oe 2 


RR 
. Es 
N N he pe 


recy 30( 1046) 
08: 


171506 


000100 


171364 


171526 


171514 


171440 


FO7 
1h3 ee TRanSHitTER INTERRUPT LOGIC TEST 


HL 1 bbb bob chehchehehehehehehehebebehebehehehchebchehehehehehohohchcicheheioheteietehebebchehehchchcheichchchchchchchoichoiel 


ATES 


pits 
18: HEE 


eee eet REIVER INTERRUPT Locic TEST 


T a "EST DATASET 


ET 


A te et ERUMBER IN APT MA 


ae 
I R OaeRe 
SETVEC DLVEC, SINT 


FLAG 
VECTOR 


MOV Ri =(SP) 
MOV oO Eat (R1)+ 
MOV @PR7, (RI) 
MOV (SP)$ Rt 
;PRIORITY O AND MULTIPLE_INTERRUPT TEST.-RCVRIE 
MOV 864S, SLPERR 
LET INTFLAG := 80 
CLR INTFLAG 
T MAINT. - <BiT 
LET atesh = := @TCSR BY sMAINT 
BIS SMAINT, JTCSR 
1 ASKER I INTERRUPTS 
SR CLR.BY sRCVRIE 
BIC SRCVRIE, ORCSR 
; CHANGE PRIORITY 
MOV PRO, -(SP) ;;PUT NEW PS on &tacK 
MOV secs’ -(5P) ::PUT NEW PC SN STACK 
RTI ::POP NEW PC AND 
6SS: 
:SEND A CHARACTER 
LET A?BUr :B= #0 
CLRB aTBUF 
WAIT A MAXIMUM 
; OF MSEC FOR 
*RCVR RDY TO SET IN RCSR 
CALL TIMER IN <#SO00, SRCVRDONE,RCSR, #SET> 
MOV RS,-(SP) 
MOV eStT, -(RS) 
MOV RCSR’-(R5) 
MOV -(RS) 
Ace 
MOV (SP) + Re 
:SET INTERRUPT ENABLE 
LET SRCSR := @RCSR SET.BY #RCVRIE 
BIS #RCVRIE, IRCSR 
sLET IT COME IN. 
WAITMS 1 
MOV RS,-(SP) 


SEG 0083 


GO? 





mg C-22-CvDvA MACY11 30(1046) _19-DEC-77 : 
OURS pis 12-Bec-77 bese8 ria Rees CER INTE RRUET LOGIC TEST SE@ 0084 
p0000 MOV #1,-(RS) 
We GE Ran wy Hats 
i MOV (SP)+,RS 
LET RO := QRBUF ; CLEAR RCVRDONE 
017700 171422 MOV @RBUF , RO 
{DID HE DO IT RIGHT? 
026787 002104 000001 CHP [NTELAG #1 IF INTFLAG WE ol THEN 
Q aT 
: - NONE OCCURED 
, = _ si on @F INTFLAG EQ #0 THEN 
BbTb2 _ $100 ;REC IVER DID NOT INTERRUPT IN TIME 
ERROR 111 E . 
soe Pa CE OR MORE 
BR $161 
$160: 
1 ;REC IVER INTERRUPTED TWICE 
18 ERROR 112 oieyy ae 
13 ones ENDIF 
ig ates ENDIF 
1 ; RESET MAINT. BIT 
zis see nae cnet pee LET aTcsk := aTCSR CLR.BY sMAINT 
, " ' CLEAR INTERRUPT ENABLE 
7 LET aRCSR := JRCSR CLR.BY SRCVRIE 
042777 000100 171360 BIC #RCVRIE, IRCSR 
aa ENDSUB 
;PRIORITY O AND MULTIPLE INTERRUPT TEST. -DATAIE 
012767 0077 ? MOV #64S, SLPERR 
Be ae _— sem om nes e IF #CABLE NOTSETIN SUSWR THEN 
14 Ba 70b4 ss BNE $i ’ 
AN'T TEST WITHOUT A CABLE 
ie 12767 000001 171234 MOV #1,STIMES exit’ 157 
BR TSt3s 3; ;EXIT THIS TEST 
mt suse on 
4 ; CLEAR *INTFLAG’ 


LET INTFLAG := #0 


RR 
= 
8 
S 
& 


MAINDEC-22-CVDVA-B 
CvDVAB.P11 


LA 


3 


peuvent SSL MEARNS ecg ca Cd 


007726 


borrse 


= = 
= 
Vy eee 
DO TOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Soe LE 


1S-DEC-77 
00S067 


042777 


042777 
042777 


017704 
010146 


MACY11 30(104%6) 19-DEC-77 
08:58 T34 


002016 
000040 


000000 
0077Se 





000040 
ooooo4 


171202 


171320 


171300 


171272 
171264 


000001 


171216 
171210 


64S: 


$164: 


$16S: 
$163: 


CLR 


BIC 


ERROR 


HO? 


08:25 PAGE 86 
RECEIVER INTERRUPT LOGIC TEST 


INTFLAG 


SDATAIE, ARCSR 
@PRO,-(SP) 
sous; (SP) 
#REQSEND, SRCSR 


sDATAIE , IRCSR 
#REQSEND , ARCSR 


INTFLAG, #1 
$163 

INTFLAG 

$164 

113 

$165 - 

114 

sDATAIE, MRCSR 
#REQSEND, JRCSR 


@0LVEC,R4 
R1,-(SP) 


-CLEAR INTERRUPTS 
LET SRCSR := ORCSR CLR.BY sDATAIE 
C PRIORITY 


Meee 


LET @RCSR := ORCSR CLR.BY #sREQSEND 


«SET INTERRUPT ENABLE 
LET ORCSR := @ORCSR SET.BY sDATAIE 


LET @RCSR := ORCSR SET.BY sREQSEND 
ieET IT COME IN. 
WAITMS 1 


iF tiTPe Ro Ne wl THEN 
iPOTRTPLaG EO 80 THEN 


pOATA AN Ro tes brbNor IN TIME 


gryzce OR MORE 


; bara rR enTee TWICE 


ENDIF 
ENDIF 
LET @RCSR := ORCSR CLR.BY sDATAIE 
LET @RCSR := @ORCSR CLR.BY #sREQSEND 
ENDSUB 
LET RY := @DLVEC 


CLRVEC RY 
;;PUSH R1 ON STACK 


SEG O08s 


07 


pial te 77 Daseee FOC HON? {4g 0EC- 70:95, P0a6 gf LOGIC TEST 


i -(SP) ;;PUSH R2 ON STACK 
i po0004 Mov ss RAAT 
i 4 MOV Ri, 
1 1 AY *(R1)+ 
1 CLR (RI) 
1 i v (SP)+,R2 ;;POP STACK INTO Re 
101 1 12601 MOV (SP )+/R1 ;;POP STACK Ck INTO RI 


CVOVAB-PIT 1S 


Raataa tec tniees taaaauaaaaer 
NOW £ Oo 
Ooo000 C000 oo OOO 


RRRRRK 
SaVPAEGO 
OoO000000 Ooo000000 


©0000 O00O 
—— ee ee 


RH BESS SRS 


——— = Fe 


STERRSRE 


De be Ba pee be hee bee 
eee ar aaa at 


papereareayararer as 
pare 
2808 

araraTes 


18-beC-77 


MACY11 30( 1046) 


171104 


171042 


177777 


19-DEC-77 
T34 


UP: m Brees 


—pr eee es cews 


64S: 


$167: 
$166: 


BIS 


MOV 
MOV 


08:25 
RECEIVER I 


JO? 
NTERRUPT LOGIC TEST 


SHEESH ASESSSHSSSSLSSLASKASSLLAASRAHESEEE EEE EEEE EEE SE 
j [SEREMEREMEREEESESESEECUSEESNESELESEEELEEEOEEEEEEOEEEEEENEENOEES 


it 

; 

TEST 
T_ MAINTE BIT 

sees + -balalad-+-+-+-+-tehahalalalalahahalabalaataiahebaiahalalahebaiatalaieiabaieiataiaiaiateiaiaieiaiaieieiaieiaiaieieiaiaie 


sae°stesin 


@MAINT, JTCSR 


-(SP) 
sede! ~¢ P) 


PC DATLNG 


(R5)+,R1 


ORBUF , RO 


Re, JTBUF 


-(SP) 
Beer! =(RS) 


SEQ 0087 


320, reef nN MUMBER N 4 fA 
LET oresite 4 OT OeR 


tT set fey anazn 


ate © PRIORITY 


; PUT NEW Pe ON TeeK 
;;POP NEW PC AND PS 
GET DATA MASK. 
CALL DATLNG OUT <R1> 


; START CLEAN 
LET RO := SRBUF 


-ALL BINARY CHAR. 
INCR R2 FROM #0 TO #377 BY #1 


; TRANSMIT CHAR IN R2 
CALL TIMER IN <#SOO, #XMITRDY, TCSR, sSET> 


TRANSMIT IT 
Let STBUF :B= R2 


CALL TIMER IN <#S00, #RCVRDONE ,RCSR, #SET> 





KO? 


WOtc-r7 free! Mw eee ten sly cero 


042777 


ieee 


171000 


000001 


oooo04 


170654 


170746 


$171: 


$170: 


g nF 


BIC 


R4Y,R3 
$171 


116 
rats eS 


$167 


sMAINT,@TCSR 


Ler Ags OREUF 


;COMPARE TO SEE IF WE RECEIVED IT ALL 


;CLEAN OFF_NON-DATA BITS 
TRANSMITTED AND 
LET AY := R2 CLR.BY Ri 


LET R3 := RZ CLR.BY R1 
FFAG Ne RO THEN 


:DATA C RROR 
iRRHRD 116, COMP, SBWAS 
EXIT TST ; ON ERROR 
3;;EXIT THIS TEST 
ENDIF 
ENDINC ; Re 


T MAINT. BIT 
LET atesh™ := se TCoR CLR. BY sMAINT 


ENOTST 


LO7 
TOES Bre Ove Beco Based! SOC1ONe) 42-OEC~ 77 Ot Foal DATA TRANSFERED SEO 0089 


HH tL tls sd akal shah ehehchehelahehelictel 


i¢ Vk ee hc!) eee: 
ig 1 7 open —papemmape ner me 
14 01 12767 1 ’ sy ME $3 
1 1 1 a ie Ea er MOV EFn {SRr'TESy MUrgeR IN eT nan x 
i 1 F NOTSETIN THEN 
! : é 7 20000 170656 git ICAQLE, SUSIR 
AN’T TEST WITHOUT A CABLE 
751 i 7 900001 170606 MOV #1, STIMES exit’ 151 
ree 1 Ba5084 BR #448) $ssEXIT THIS_ TEST 
i $17e: 
178 DON’ T USE MAINT . 
se p1ggsy LET @TCSR := STCSR CLR.BY sMAINT 
rt 042777 000004 170702 BIC SMAINT, JTCSR 


ive 
4: 5 CHENGE PRIORITY 
7¢ ..10 


i7¢ 
730 Ol 1 MOV -(SP) PUT Sack 
73 bles B1s7ue poRgea seus’ - ep} 1iPUT Neu PE ON “STACK 
i732 Ol R oY 
17 3 1 64S: 
73 DATA_MASK 
173 i seat ie cat pari TOOT <RI> 
zee Bibi} A6S705 pp0Ne Hh BBall 
738 Ol 12501 MOV (RS)+,R1 
i739 Ol LET RO := @RBUF ; START CLEAN 
5 Ol 017700 170650 MOV @RBUF , RO 
:BINAR OUNT PATTERN 
i 12 P INCR Re FROM #0 TO 8377 BY #1 
10414 atin Sk $173 
745 1041 $174: 
=: i oos202 nit INC Re 
748 O01 27 000377 “CMP Re, 8377 
749 Ol 7 BGT $175 
IA 
es ; TRANSMIT THE CHAR. IN Re. 
75 1 CALL TIMER IN <#SOO, #XMITRDY, TCSR, #SET> 
3755 i 1 MOV -(SP) 
375 1 177777 MOV T, -(R5) 
75 1 1 MOV TCSR’ -(R5) 
758 Ol 1 MOV sXMI TROY, -(RS) 
eo Bl oa te a 
re, Ol 12605 MOV (S)2 Re 
* -START IT ON ITS WAY 


10456 LET iP BUF :B= Re 


ee i 
1S-DEC-77 08 


ae 


170544 


000001 170420 





MO7 


PAGE 91 
TEST DATA THROUGH CABLE 
MOVB R2, JTBUF 


MACY11 30(1046) 19-DEC-77 08:25 
08:58 T36 


hoy R2,R4 
BIC R1,R4 
BIC R1,R3 
CMP RY, R3 
BEQ $i%6 
ERROR 117 


Bey et§77*S 


SE@ 0090 


CALL TIMER IN <#S00, SRCVROONE,RCSR, SSET> 


; RETRIEVE 
@RBUF 


LET AZ := 


Let AV Se RO CLREY RD 


LET R3 := R3 


We HAVE 
IF ni"he 


CLR.BY R1 


TROUBLE 
R3 THEN 


;DATA COMPARE ERR 


ERRHROD 117, COMP, CBHAS 


EXIT TST 


;;;EXIT THIS TEST 
ENDIF 


ENDINC ; Re 


$174 


ENOTST 


; ON ERROR 


TNE Cott CVE Bec-77 be MAC ort 30( 1046) 





mh ee 


016701 170424 


012721 011026 
012721 000340 


012721 010764 





NO7 
eet e61 BATA THROUGH CABLE 


‘96 b AE A OE a ab bab a aaa a a aa aa a aa a aaa a aa 


; [SEAHRAHHHHHEEEDUSEOSOSOSEESESERNEEEAAESREBSSEENENEHHHHNEHHEOES 
j ATEST F ITH INTERRUPTS 
Hs eseeesennnensloelalsoSiiivnasiosinssssssssssssssssesssssssoss 
81,87 :;D0 1 RATI 
$405 SHESIN 320, rbot R IN APT MAIL BOX 
; THIS TEST *BREAK OR HALT’ SINSATIVE. 
: EP eAPTERY i SETIN SENV THEN 
BIT SAPTENV, SENV 
Q $177 
EXIT TEST 
BR” va 455 ines ::-EXIT THIS TEST 
init? 
$177: 
T DATA MASK 
CALL DATLNG OUT <R3> 
Mo Mis 
Vv ( RS 
; THIS T ean: TH TRANSMITTER AND 
: RECT bY STING 
H 19 S 
; A Slee LOGIC 
$ Ai es woe) 
g 
: AN ERROR 
; cnet BROUGH Th STP at OE SHUTDOWN OCCURS. 
j CHANGE PRIORITY 
MOV ,~(SP) ;;PUT 
nov se Gg" - (8p) i iBUT PUT NeW H Be gst 
RTI 
64S: 


LET Ri ihe YECTOR patna 


CTOR 
LET cris _ ‘ 


LET (R1)+ := S8PR7 
;POINT TO TRANSMITTER VECTOR 
: SE IT UP ALSO 

LET (R1)+ := STRAN 

LET (R1) := SPR? 


MOV OLVEC,R1 


MOV @REC, (R1)+ 
MOV @PR7, (R1)+ 


MOV @TRAN, (R1)+ 


SEQ 0091 


EE CE CVO YER cuz7 faseg) SOC1ONe? ,19-0EC~77 BARA TRANSFER WITH INTERRUPTS SEQ 0092 


0106%6 012711 000340 MOV @PR7, (R1) 
; 4s eames COUNTERS 





i 012701 177777 mov #-1,R1 a 
. ;RECEIVER STORAGE 
BiREEE cosone CLR sR LET Ra := 80 
. _— j# OF RECEIVED CHAR. COUNT. 
; UbbL $2 = 
387% bibeed 012704 177777 MOV #-1,R4 
387% CLEAR ERROR COUNT. 
37¢ 01 4 LET ERRCAT := 80 
3880 10664 005067 000066 CLR ERRCNT 
3E 910670 tins ent BRESET ;SET UP ALL REGISTERS 
T UP MAINTENANCE 
010678 LET atesh= := @TCSR SET.BY SMAINT 
1 052777 000004 170364 BIS aMAINT, JTCSR 
TI, E. IN. TRANSMIT R 
919700 LET ateshe := JTCSR SET.BY SxMITIE 
1 052777 000100 170356 BIS SXMITIE,@TCSR 
-AND RECEIVER 
910706 LET SRCSR := ORCSR SET.BY SRCVRIE 
1 052777 000100 170344 BIS #RCVRIE, IRCSR . 
x Now WE WAIT UNTIL R4 COUNT (RECEIVED) IS EQUAL 
10714 REPEAT 
10714 $200: 
10714 UNTIL RY EQ NUMBER OR ERRCNT GT 80 
: 4 4 7 oo0040 CMP R4_ NUMBER 
1 e3 000030 ad ERENT 
1 2 BLE 
1 $201: 
DATA aSouPare ERRORS. 
B1G730 767 000022 TST RRCNT a ernent He 
ib734 Bpi4Bi Bee 2S 
3310 -DATA COMPARE ERROR 
11 010736 ERRHAD 120, COMP, FIRST 
1 1 104120 ERROR 120 ; 
1 1 ENDIF 
3318 1 $202: 
16 19738 as oad Catena ia Sg LET STCSR := S3TCSR CLR.BY sXMITIE 
1 1 ° _ ' LET ARCSR := SRCSR CLR.BY SXMITIE 
10746 042777 000100 170304 BIC #XMITIE, IRCSR 
3921 010754 EXIT ;SKIP OVER SUPPORT ROUTINES & STORAGE 


MAINDEC-22-CVDVA-B 
CVOVAB.P11 


1S-DEC-77 08:58 


: 


SEEPRRRR UG Ccis Geese Leet Eee crete n nen Gy 


oo 
So 
fer 


042777 


MACY11 30( 1046) mY aaseat ‘/ 


CO8 


FULL OBATA TB TRANSFER WITH INTERRUPTS 


TST4O ;;;EXIT THIS TEST 


ts 


See eee et ts dehelehabubah-iehabebabeheh-b-iahet-beb-bal-i-tebalalaiaielehainiaiehslaialal 
HANOLER 


; TRANSMIT INTERRUPT 
BGNSRV TRAN 


TRAN: 
5 GE aE aE 0 a a a a a a a a a a a a a a a a a aa a a a a a a a a 


INC 
Bono Bre 
oooc2e0 170264 MOV 
177750 CMP 
oooioo 170244 BIC 
$203: 
BR 
222: 
RTI 


INCREMENT _ COUNT 


RI ur ALS RIS 
. ver ben eR PE ey 
RS OLB 
; AND SEND. 

LET QTBUF := HOLD 
HOLD, aTBUF 

IF ris ROMBER THEN 
1 NUMBER 
mentee. green EBT orcs eee aR CCR BY BXMITIE 

: ENDIF 

222 ; EXIT SRV 

HOLD:0 

ENOSRV 


gab AE Ab a ab ab a a a a a a aaa aaa a a a aa aaa aaa aaa aaa aaa a aa aE 


;RECEIVER INTERRUPT ER 
, HAO ENSRV REC 


REC: 
5,6 Ab a6 6 A a A a a a a a a a a a a a a a a a a a a a a a a a a a a aa a aaa a 


INC 


» COUNT THIS CHAR. 
LET RY := RY + al 


HAR IN + MASK IT 


RY 
TC 
Ler ase := @RBUF CLR.BY R3 


SEG 0093 


ROINDECEZZ-CVDVE~B core Racca S0CtO4e) Ag-DEC-77, | OBER TRANSFER WITH INTERRUPTS SEQ 0094 


11030 917708 170226 oy REV ,Re 
ll 
BLISS piper Dooney ney BY. RA 


,;RHLD WILL CONTAIN EXPECTED INPUT 
LET RACE i= RY CLR. BY 


THEY COMPARE 
IF pine 0 SHEN 





3 
385 (011 
3€ Bt 1Oae 7 oo0044 CMP Re, RHLD 
388 Oli 1412 BEQ 
: B11De4 005767 177676 TST ERRCNT iF . Rc ia seamen 
3 — ;SAVE RECORD OF FIRST MISS 
3¢ ti 116767 000030 177672 MOVB RHLD, SB oy ee on en 
ii 110267 177667 MOVE sR nee oo oe 
11 i ENDIF 
3999 O11 $205: 
11074 ig? uBRRONT := ERRCNT + #1 
11 005267 177656 INC ERRCNT 
11100 ENDIF 
011100 $204: 
;ALL DONE? 
pit ibe 177654 CMP R4, NUMBER IF WY EG NUPGER THEN 
DL11O4 B50B3 BNE s2de 
1 jSToe.R RECEIVER. INTERR 
wou2 reer 042777 000100 170144 BIC #RCVRIE, ARCSR ey —— 
uo75 . -MAIN REPEAT LOOP IS CHECKING 
4014 O11ii4 ENOIF 
w01s 11114 $206: 
18 -FOR ’RY = NUMBER’ ALSO 
1g 011114 o00401 BR 2222 ; €xIT SRV 
11126 mee: 2222 — 
lil . ENDSRV 
i023 11120 ooo002 RTI 
woes 011122 ENDTST 
4027 


8 


: 


om 


SESESSSSSGSSSSERERESOEOESSAGAGRGADESEASIEIEECIGEESNS 


COO000000000 C00 2000 GBO0000000000 oO 

hh hh OF Fh i eh 

(nl cel see aul eel eel ae aul ae al aol ae el cee ee cel cel oe ee ce ce ae ae eel eel a a aol ae oe ae cl cl 
eee OS IIT ETT aa 
TO EOLSLOR POO NW 
oor sco 


: 
BRING URARSS BAY RASS 


EOS 


VOVA-B ooo ABCYE! SOC1046) 13-DEC-77, | OBER TRANSFER WITH INTERRUPTS 


HL. lchehehehehehoieheheheheiehehcicheicieheichehehebehehehcbehehehehebehohehehohehohebshohehcicheicichoichcioheiohheiohelohotel 
jsocgenguonansegsessscsnenenscneveossssogennnncnconencenensenen 


i" Tear etT ton Seek tate Ble se1 
;# IVED 
: nol Semper onpgepmMaMERrS Ire HT 
12767 10 1 ters: Aov . & TIMES 10 ITERAT 
12767 evenly eared MOV Ht 3} bes +322, 9edt eR N eet ett, 8 nant = 
LET — 4 oy oR SET.BY sMAINT 


170116 BIS SMAINT, JTCSR 
; AR RCVRDONE JUST IN CASE 
LET RO := SeEUE 


017700 170110 MOV @RBUF , RO 
AK BIT 
LET atest . TCSR SET.BY #BREAK 
052777 000001 170104 BIS #BREAK, JTCSR 
j NON-ZERO CHAR. *#’ 
LET aTBUF := #252 
012777 o002S2 170102 MOV 8252, aTBUF 
CALL TIMER IN <#SO0, #RCVRDONE,RCSR, #SET> 
010546 MOV RS,-(SP) 
: 177777 MOV eStT, = 
i NOV el: -(RS) 
8001 TR Pe,T tren ' 
tees MOV Sp) Re 
IF.ERRCR THEN 
, ' _ — RECIEVER DONE DID NOT SET 
ERRHAD 1 
104115 ERROR 115 
ENDIF 
$207: 
somes nen IFB ORBUF NE #0 THEN 
boi401 BEG Ate os hae walt ‘ 
ERRHAD Tet : K om. 
104121 ERROR 121 
ENDIF 
$210: 
BRESET ;CLEAN UP 
oo000s RESET 
BR TSTY1 33 ;EXIT This Test 
1 ASCIZ /BREAK DID NOT EQUAL 0” 


C-22-CVDVA- 


MAT 
CvDVAB.P11 


408S 
4086 011264 


is- 


Becnrr BEERS! 200) 413 


-DEC-77 
TEST 


FOS 
OBRERK GENERATION LOGIC 


ENDTST 


GO8 
RSet eee OO ve-B cane AACEA! SOCLONE) 1B DEC T7 CT OBRERK GENERATION LOGIC SEQ 0097 


5 titist 41 NOTA TEST ~ SEND BACK TO LOOP 
} ge pmpimaag ctnetea peamaNR rg oRe 


SS mm rs a, 


-:65§: .ASCIZ F>#CSR: # 
bag’ 


315 O1674G 167736 HOY DLADD, ~(SP) Be SPOCTAL ASCIICALL DIGITS) 
us igs 011326 TYPE 67S diclpiell 


33678: PASCIZ SS ecton: % 


rere 


O16 167712 MOV OLVEC, -(SP) vE FOR TYPEOUT 
i Tyeoc Hi TAL ASCIICALL DIGITS) 
1 011354 T 9s i TYPE TRING 
BR ASCIZ 
69S: .ASCIZ #,ERRORS: * 


BEIFRIERHB 


SEESLELELELLELS 
he ee ee 


016 167S20 MOV SERTTL,-(SP) igo ty Mat Lp Ls 5 ee 
TYPOS i ;GO WITH SIGN 
167S12 CLR SERTTL serra vic ZPASS 

167 170314 JMP LOOP ; BACK UP TO THE 


| ae eel al 


MeO 


MAINDEC-22-CVDVA-B 


CVDVAB.P11 


£ 
— 
— 
Ww 


eee 
WONT UW £ 


OoOOOOO000000 oO 


rb Fb hh 
bo bb Pb bs bo be be BS pe pe hehe 


B1i4bs 


at 


SEEEL ££ 


DoEEEEE 


ra 


oO 
~ 
i 
<£ 
Ww 
<= 


000001 
000000 


016567 
016567 
112767 


112767 


177777 


MACY11 30( 1046) 
1S-DEC-77 08:58 


000136 
000132 
000126 


000114 


000111 


000101 


HOS 


19-DEC-77 08:25 
T41 


PAGE 99 
NOT A TEST - SEND BACK TO LOOP 


SEG 0098 


; BGNMOD SUBS 
Tins iashapanisees 


SF Se Se OF St St Se Sees Se 4 St Se Sees os eee 
tenn eeeoee mm o 


$213: 


$21S: 


$216: 


1g TING TES 


ag —_ 


TINE TIMER <HOWLONG, WHICHBIT,REG,SETCLR> 


IS USED TO TEST THE STATUS OF ANY BIT 


re eae OF TIME TO SPEND IN 


WHICHBIT 


bi teen BIT(S) SET THAT ARE 


so. $ i sel Sete re TO BE CHECKED 


PUT: 
auf 171 


NOTE:: THE OF (RS) 


ME CHAN BETWEEN THE CALLER 
5 AE A aE A ab dab a a a a a a aa a a a a a a a aa aaa a a a aaa a a aaa a 


MOV REG(RS) , REGSAV 
MOV HOWLONG (RS), TIMSAV 
@FALSE , FLAG 


BIT WHICHBIT(RS) , AREGSAV 
$215 


BNE 

MOVB #@CLR,HOLDSC 
BR $216 

MOVB #SET,HOLDSC 


"TESTED By THE IF-ERROR STATEMENT 


IS _ PART OF THE LINKAGE 
THE CALLED 


FALSE= a 


LET REGSAV := REG(RS) ; GET POINTER TO REGIST 
LET TIMSAV := HOWLONG(RS) ; SAVE HOWLONG FOR 
LET FLAG :B= #sFALSE ; INITIALIZE THE EXIT FLA 


; START OF AN INFINITE LOOP 
LOOP 
; TEST TO SEE IF WHICHBIT IS SET 
IF WHICHBIT(RS) NOTSETIN @REGSAV THEN 


LET HOLDSC :B= sCLR 


LET HOLDSC :B= #SET ; REMEMBER THIS 
ENDIF 


- NOW SEE IF THAT WAS WHAT WE WANTED 
tre HOLDSC EQ SETCLR(RS) THEN 


§ cS SOCIONG) othe ? "TIMER PAGE 100 


2-C 1 
Pll C-77 08: pesee SEQ 0099 
41 11 000075 000006 MPB HOLDSC, SETCLR(RS) 

ui30 ae BEE SNersTD 

417 ; Just THE THING We NEEDE 

18 tive E L = PRUE 

417 il 112767 000001 o00062 MOVB #TRUE , FLAG 

4174 ti ENDIF 

a7 tags $217: 

41 1147; EXIFB FLAG EQ #TRUE OR TIMSAV LE #0 

4178 114 727 0000S6 000001 CMPB FLAG, #TRUE 

4] ll 1414 BEG 14 

giei Oil > apes Bee |OOSBdG 

41 ONE WAY OR THE OTHER, WE ARE DONE 

41 ; IF be AR ARE STILL HERE THEN HANG AROUND A WHILE 

41 1151 WAITMS 1 ;WAIT FOR 10 MILLI-SECONDS 
Igy Bligie 810548 roy =e 

wide BUSLE Basra? S8BR Ss 

4188 11 1 MOV (SP)+,RS 

413 it ‘ ‘ ion sannne LET TIMSAV := TIMSAV - #1 ; COUNTING DOWN 
i132 il — , ENDLOOP ; CONTINUED AT THE TOP 
41 11 000736 BR $213 

4134 11 $214: 

4196 ; ONLY 2 WAYS TO GET HERE 

4197 : 1). RAN our TIME---ERROR ! 

i138 : 2): THE BIT IS IN THE CORRECT CONDITION--GOOD ss 

weno O11 ige7er os od . ns cane IFB FLAG EQ sTRUE THEN 

4 11 1001 _— — Ne” $220’ 

te 1124 o0040s ‘ $211 pense an ica Poesia: 

4205 011544 ENDIF 

11544 $220: 

4 it a4 . se RETURN E&RROR ; BAD 

4203 011546 eaten) BR $212 

421 il GSAV: .WORD O 

4312 1182 Boag08 Fe aeAV: WO : 

421 11554 FLAG: .BYT 

4214 011555 000 HOLOSC: : BYTE O 

4215 ; WE ARE DONE GO BACK HOME 

4 3 11556 NDORTN 

421 il $211: 

4218 11556 o00241 CLC 

421 ll $2le: 

4220 O11 000207 RTS PC 


MAINDE 
CvOVAB 


P+: 
rurur 
Whe 


bébEEEESESASES 
LERZORHBBSVERF 


PAADT AMM TTDAATT MDMAA SEEELLLES 
RENE RRO RANI TE aT e 


Os be Oe be a be te be he np nh hte heh he bo 


C-22-Cv0vVA-B 


-Pll 


Os 0 0 0 hh he a he he ee 


EEE ERS EbaaSS PPR Tote: 


BB IRRES 


co 
be 
oo 


1S-DEC-77 


MACY11 30( 1046) 
08: 


1674S4 


19- 


C-77 





08:25 PAGE 101 


ROUTINE - TIMER SEQ 0100 
= SEES SSSSEEREREE ETERS REESE EERE REE REE EE 
ROUTINE DATLNG < > 
oA : 
2 T A MASK F TA, WITH 
i DT TH {NE 
;# 8 0 ERs": 
;# F T 
$i LOCATION OF THE OCTAL 
Mo DATA BITS 
3 i MASK-- A MASK BINARY RIGHT-JUSTIFIED 
$i THE R BNIcH fs BEeINeD? IN WORD. 
5 5 Be aie aE aE a aE a a a a aa a aa a a aaa aaa aaa aa aa 
LET MASK(RS) := #0 ; START 


CLR 


$224: 
$223: 


$225: 


$222: 


MASK (RS) 


ee: 


)+° NUMBR 
$233 


i205 


MASK (RS) 
#1,MASK(RS) 
$2e4 


MASK (RS) 
$22! 


PC 


ENDRTN 


RETURN 


LET NUMBR := SUSWR AND sDATA 


INCR I FROM #1 TO NUMBR BY #1 


i 


:= MASK(RS) SHIFT #1 
:= MASK(RS) SET.BY #1 


LET MASK(RS) 
LET MASK(RS) 
ENDINC 


LET MASK(RS) := COMP MASK(RS) 


KO8 
GVDVAB-PIT ~\"18-Bec-77 Gerse ROUTINE - DATLNG SE¢ 0101 
471 


PT. fememme OO esee ahen nemngpsarcee eeanmipn scemitainin: eestenmntti 
> 


4 11 AUT INE WAIT 
a sits tag ll 
4275 ; a Noite cat et ha es 
4 3% MAIN F TIME. 
3a TH EnENTI A 
‘ if Re T AL S SET 
4 Ue eunne OrePeRORTORTE 1 FILL See ss svauaueneneseavavecenen 
662 010146 MOV »7(SP) 33 Rl ON STACK 
6 Deve MOV »7( SP) 33 Re ON STACK 
1 ) 33 R3 ON STACK 
2 LET R1 := nd (RS) 
016501 000000 tey T ),R1 
La senna INCRU Re ROH #1'TO R1 BY #1 
BoE $231: $280 
062702 000001 * aDD #01,R2 
$230: 


R1 
i R3 FROM #0 TO #100 BY &1 
33 


NNNN 
ol aekanens 
= 
Z 
Se 

D 





NORTN 


327: 


ee a ee be Be Be be Be ee Be Be be he ee 
ee ee be Be bb 0 


71 $234: 
716 005203 INC R3 
000100 — P 
Sa lie SenRe7 SB 
4 000773 BR A 
: ie $235: wine 
: 730 000764 ae: BR $231 
4 1 “Mov )+,R ;POP STACK INTO R3 
4 1 v )+°R ttpop STACK INTO Re 
4 7 12601 v )+°RI !:POP STACK INTO RI 
4 
4 740 
4 


j 
3 


Sh). LS 6 dala tS "7 recy! 30( 1046) abaTine - wn 09: :25 PAGE 103 exe 0108 


431 

4 Ig .SBTTL INTSRV INTERRUPT SERVICE ROUTINE 

431 ° | Tah pearealapammnenia ren seme gen tanacenperagtieer etter 
4 1g 011742 ne 

4 TINE DOES NOTHIN BuT 

: ee ae cee THERES SCULPT 

4 rain Gaul Thc a tod INE Wi 

: Train 91, ve eemeendantieteene: socmen mt nob 
4 ;ADD 1 TO ‘INTERRUPT OCCURED’ FLAG 

4 11 LE INTFLAG := INTFLAG + #1 
4 11742 00S267 o00002 INTFLAG 

4 ll SRV ; THAT'S ALL 

43 11 oo00002 

4331 O11 000000 INTFLAG 


MAINDEC-22-CVDVA-B MACY11 30( 1046) 
CVDVAB.P $ 


15-DEC-77 08:S8 





SELSESLLELELELLE SLES 
co 
=—— 

+ “~+ —- 
as GS! 

o 

o 
=e °& 





4 i 016746 167040 
4 1 1 

. ists 1 012066 
es Bt 

2 1G wa oc 
ce) HE UR on 
4 121 

3 i quNa 67208 
see Bie 

Bi bi 


ff 


167150 


IN 


19-DEC-77 08:25 PAGE 
TSRV 


mos 
04 


1 
INTERRUPT SERVICE ROUTINE 


Rvty NE MYTYPE 
EMM TTT rt ttn 


ust 


bag?** 


-ASCIZ < 


if 
STESTN, -(SP) 
aH 

abet 


SERRPC , -(SP) 


on. » 


DLADO, -( SP) 


? 
#, VECTOR: # 
OLVEC,-(SP) 


PC 


>#TEST @ # 


HF z 


4 yest pon TTL GITS) 
ite © 
APT FAT 
ae FoR FOR Tree Ou 
er ig eH the DIGITS) 
4 br TT CML DIGITS) 
itera 


iB ert pies ASCTI TALL DIGITS) 


SVG PE eocra ASCIITALL DIGITS) 


SEQ 0103 


BONS it Whee. a7 te pcr! 30( 1046) me ioe PAGE 0 


spe Cres 
[eedsensnenacnneenseeoneneenersneeneesneeseeeaneaerenenteneeees 


~ Bel a 


sereeereeeeiHOeNHOUHHOeHHeueneusnauenaannannnneenneenertsecess 


004767 000110 









a? 016767 167042 
DS 016767 167030 
“at 000410 
Si 
wai eet 
4414 2220 ~(012704 000010 
441 <- 
wig 006167 000032 
441 060467 000032 





a Ob 


R26? 7 000016 


SEEETE: 


167002 


167004 


we ee ee eres eseows 
oo me me oe oe =. 


$244: 


SPECIALADDRESS: 


$2e4s: 


JSR 


MOV 


Bed 


SA 
3 
NITFLAG, #1 


INITFLAG 
$245 


PC, SEOP 
(SP)+,RO 


#1,BITMASK 
#1, S0EVCT 
SBASE , ADDRESS 
SVECT1, VECTOR 
S246 


#10,R4 
BITMASK 
R4, ADDRESS 
R4, VECTOR 


BITMASK , SOEVM 
Se42 


re Pony TO oo 5 


He OLLIE RS T. 


IF BITMASK EQ #80 THEN 
IF INITFLAG EQ@ #1 THEN 


LET INITFLAG := #0 
ELSE 


CALL SEOP ; AS A SUBROUTINE 
; BECAUSE SEOP_ RETURNS A JUMP 
CET "RO := POP 


ENDIF 

LET BITMASK := #1 

LET SOEVCT := #1 

LET ADDRESS := SBASE 

LET VECTOR := SVECT1 
ELSE 


LET RY := #10 
LET BITMASK := BITMASK ROTATE 1 


LET ADDRESS := ADDRESS + RY 
LET VECTOR := VECTOR + RY 
ENDIF ; 


UNTIL BITMASK SETIN SOEVM 


SEG 0104 


Oz 
» 
Fs 


isssesttees : 


C-22-CVDVA MACY11 30( 1046) 9- -77 :25 PAGE 106 
‘PI 18-BEC-77 08:58 ROUTINE ,- cycle ‘ SEG 0105 
1 ET ADRS := sADDRESS 
1 012266 MOV sADDRESS our 
1 te VCT := SDEVCT + #1 
1 166724 INC SDEVCT 
1 RETURN 
1 BR $240 
1 ITMASK: 0 
1 NITFLAG: é 
1 S: 
1 TOR: 0 
1 ENDRTN 
1 $240: 
1 $241: 
1 RTS PC 





MAINDEC-22-CVDVA-B MACY11 30(1046) _19-DEC-77 08: 5° PAGE 107 
c Pll 1S-DEC-77 08:S8 ENO OF PASS NE 


; SEQ 0106 


-SBTTL END OF PASS ROUTINE 
: CEA A tel on rts ete a | aca a zaameataaamaastatiiaie 


ii 


is }NOIOnTE ene-oF -PRockan cr TER | PRSSES THRU THE. PRgGRAH, 
Hea hire $8 SPetiacaooress 


te Tims tiSERS THE NORBE TTERATIONS 
c 8 , SPASS {DoT ALLOW A NEG. NUMBER 


(PC)+ 33l 


NN cpcys —- SERESTORE COUNTER 


fyPE A a 
VP aFRSE)<se) erste WE WITH SIGN 


T SE +3 A 
sore: Bey Boker  Bkaede Hy no WONT 
SENOAD: J PC, (RO) ee MONIT 

> ii ROOM 

NOP ter 
SDOAGN: 


* IMP a(PC)+ ; ; RETURN 


ts CI 
: .BYT -l1,-l ;;NULL CHARACTER STRING 
ie sere: BSe z «1$><12>7eN0 pass’ a7 


sSi5Sh455 554404 42501d2SE Es gsEEEINIEE 2 


DOOQOOOOOOOOOOOOOOO 000000000000 


ae Be Be Be me be fe Be Be fe fe fb fo hf = he fh FP FO 





eee is 8 
CVDVAB .P 1S-DEC-77 08:58 


12416 Ql 
1 1 
1 1 
t 1 
1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 
12464 
1 





et en 


Ss Sea ee natin 


MACY11 30(1046) 


2 sume gags tne 


047520 042527 


D093 
PRE ABE obttinde 
.SBTTL POWER DOWN AND UP ROUTINES 


3,SET FOR FAST UP 
BPURVEC SS rf $ 
my ) 33 RO TACK 
R Re, =< ) $3 R TACK 
Re, = ) 33 TACK 
Bae =f ) 33 TACK 
RY, -(SP) 8 TACK 
- (SP) 33 TACK 
-(SP) 33 ON STACK 
= Sy eee UP VECTOR 
BR --2 ;; HANG UP 





3 AESSSSREGERGRS GSES REESE SESE EERE EES RER ERR RRR EEE EEE EH 
> POWER UP ROUTINE 
$PWRUP: MOV UP ,g#PURVEC ;;SET_ FOR FAST DOWN 
MOV ’ 3 t 
R HH IT h FOR THE TTY 
1S: : 5 ;WAIT INC 
7 ( z: 
Moy «tSpyat Ren bibop Sr 
nov (SP)+)R4 33 T ce 
Vv ( R3 33 T 
MOV ( 3 T 
: i Se SS So Hf 
MOV a c’::SET DOWN VECTOR 
HOV #340, SpuRvE es 33 iv 
creme: RO Heng, EMD BA il 
SPWRAD: agro START’ 33 START AopRESS 
SILLUP: T i 


237 R WAS STARTE 
.-2 : aM: ORE THe POWER DOWN HA WAS CONPLETE 
OWER: -ASCIZ <1S><12>"POWER™ | 
. EVEN 


3g 
he 


SEQ 0107 


pe te oe 


o000 


~22-CVDVA- 





ee ee me ee ae me ee ee be 
+ 


BE 


1S- 





pace! 30( 1046) 


Bec-77 08 


09 


19-DEC-77 08:25 PAGE 109 
TYPE ROUTINE 


-SBTTL TYPE ROUTINE 
A as Meg ge ACs NA 


i i t CreRACTERS TER ALLE : 
Tine WIEL ay tte FEED 


Sie He eatele te oe Tee SkefacTens REQUIRED. 


; *CALL: 
#1 T i 
te USING 2 RAP AESAOR _ ;;MESADR IS FIRST ADORESS OF AN ASCIZ STRING 
3% T 
it Revhon 
STYPE: TsTB STPFLG pea TERMINAL? 
HALT 33 IF NO TERMINAL 
Is: OV -(SP) i ceave RC 
y MOV tsp) >:GET ADORI Z STRING 
Cree «= aAeTeNY, Sen=y i 7R PaaS cre 
pire TSPOOL , SENVM 3; on? + pees 
MOV 





je 





nag 
Rgg*aak SShRS 

5 

3 

> 


but 
: MOVB (RO) +, -( SP) 4 : TYPED ONTO STACK 
” BNE 4 33 ron a T 19 85 Ty RMINATOR 
Tot 1s ee (a OR POP IT OFF THE STACK 
sgs: RTT #2, (SP) HH Sie a ec 
4$: ee #HT, (SP) 33 H IF <HT> 
a BCRLF , (SP) ;;BRANCH IF NOT <CRLF> 
Oi (SP)+ ;POP_ <CR><LF> cpcy 
TYPE ‘ A CR 
ee HARCNT T CHARACTER era 
SS: SR STYPEC 
65: cHPe ETiLc, (SP + aie ne CHARS. ? 
MOV L,-(SP) i R CHARS. * NEEDED 
7S: eiite BE TYPE 
. acy es srvPec ir mNen-Go NEBR THE AULL © F OF STACK 
DECB $560 Nore COUNT” is A COUNT 


CHARACTER. 


SE@ 0108 


RIE STE Ove Bec-27 fosag! FOCI , 


I 
i 





pabebbgatnnioesesee 


Ob bb Pe be Be be bm he ee Pe 


S 


BR 7$ 
;HORIZONTAL TAB PROCESSOR 


§: P 
ie Bo STIPE 


STYPEC: Pe T 


cHee 
eLRe 
MPB 


18: (SP) 
a 
1 oe (PC )+ 
SCHARCNT: .W i) 
STYPEX: RTS PC 


SEQ 0109 
; ; LOOP 


PER TAB WITH SPACE 
i H T AT 
+3 
OFF STACK 

Hy NE coe ste 

IT UNTIL PRINT R IS READY 

T NTO DATA REG. 
EGE Gd RARER Rete 

+3 YESU-CLEAR MR MARACTER COUNT 
+ EXIT 
i Cc ACTER A LINE FEED? 


: SOUNT THe errRacT GRAGE 


GOS 
BURST VE Bec-rr BSEE! OU EPREGT RoDRHRE PASE 1 seo 0110 
.SBTTL TTY INPUT ROUTINE 
5, ASHSSSKASSSSASLASSSSSSSLSSLSSSASKAARLSASLGRLSE REELS REE EERE EERE 
‘ENABL LSB 
SHSKKSSKKAKSSKASSKSKHSSHSESSSASSERKSSKASGRSSSSSSREEREESEEEEEEESE 


Ed pe ood auTTCH” REGISTER TRAP CALL 


FLAG MODE 

éeicun ToSHR SELECTED? 

F NO ONT NT WAIT AROUND 

TR a? CORE ASCII 

Fete N AUTO-MODE? 

ah "ui 
, SCNTLG 

Tents 

G,-(SP) 
ascTT(ALL DIGITS) 

, SMNEW 


fe Rey 
KS 
F NOT TRY AGAIN 


orci es, (ep) mac Ve SYBir ascii 


ssssssessees 
o 


we ee ee ae wewececes 


Dae fme Pme me Bae me Pee Pome pnw pam 


ri 
“in 
7 
Se ena 
fee? 
" "& 


e 
£ 
= 
5 = 


—— hh hh he ee 


FR SLOSESRBR Yass 


oOo B0O0000000 


— he 


Ww 


= 
0 
Be 
°5 


eecessessssseeeeesee 





: 17; Qs: ere ( », 825 ITA 1PONTROL-U? 

1 NTLU Cc (tU) 

1 20S: sp ene Pieris ous ThPut 

13210 1 T'S TRY I 

1321 10S CMP (SP), 15 3318 IT A_<CR>? 

1 oe 1 33 F 

i Tot 4¢ ) $3 Is 3T He FIRST CHAR? 

1 165704 MOV bt ), SWR 33 VE 

i 148: ii AND. 

1 14 T F 33 <«CR> «LF> 
ie i 000001 C $ NTAG, #1 33 Try Ko INTERRUPTS? 
46 i 165662 es Ro 7 tio, asTKs 33 TENABLE TTY KBD INTERRUPTS 
uel 13264 168: JS PC STYPEC 36 CHAR 
Geee 01 CMP (SP), #6 ::;CHAR < 0? 


MAINDEC=22-CVDVA-B MACY11 30(1046) 19-DEC-77 08:25 PAGE 112 
Cc Pll 1S-DEC-77 08:58 TTY INPUT ROUTINE SEQ 0111 
013274 BLT 18S ;;BRANCH IF YES 
1 CMP (SP), #67 ;;CHAR > 7? 
' ¢ be, (SP)+ 4 RiP : esti 
0 2(SP) 33 HIS THE T CHAR 
sate tz ) tI NO i NT 
es if) i ge Pass 
mc Re Ba 
‘ , 33GET He Me xF ONE 
188: YPE Ss 3; 1YPE 7<CR><LF> 
013342 BR 208 :;SIMULATE CONTROL-U 





-OSABL LSB 

i A Ab aE Sb a ab ab ab a a a a a a a aa a a a a a a a a a a a a a a aaa a a aaa a aa 
jATHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

SINGLE CHARACTER FROM THE TTY 


if RETURN HERE . HEATER TS ou de etek 


: 
: 
: 
3 


——O0 
rd 
a 
Basra 
Ze: 


165832 es: TSTB asTKs 
BPL 


4 


SSGseseccctsececestsccececeeccccececees i 


OOOOOO0O00000 OOO0C00000 


Ot hb bb bo he 
se Oe Oe we Os ws os Sees Ss Os SS Sees we 


RatseaRNDerneasSReds? 


po 
: - - 
g 
£ 
o 
Brad rae 
§ lox 
~ +N 
= i 
e = | 
— an 
56 “SS 
So 


4 

es = 

4708 000175 ber 4(SP), #175 AL CHAR? 

4 o00040 o00004 #40,4(SP) Rea ert et 

4708 4g: RTI 

4 ; sonst lesswssnsepeesgngusesshi Fs ltrtattattl esessossssaseve 

4710 iATHIS S ROUTINE WILL INPUT A STRING FROM THE T 

471 . T A STR FROM THE TTY 

4915 ;# RETURN HERE ti ApRese be Bast ere TER WILL BE ON THE STACK 
u7i4 3 1 TERMINATOR WILL BE A BYTE OF ALL O'S 
4716 013464 01 SROLIN: MOV -(SP) 3; SAVE RI 

471 13466 012703 013572 1$: MOV RStTvin R3 :GET ADDRESS 

4718 013472 022703 013602 2s: CMP eSTTYINSB. ,RB :} BUFFER FULL? 


SEQ 0112 


I09 


rhe Yes” OF ee PAGE 113 


Y INPUT ROU 


MACY11 30( 1046) 


C-22-CVDVA 
-Pll 18-Bec-77 


MAT 


c 


STACK AND PUT ADDRESS OF THE 


T ASCII CHARACTER ON IT 


arenes FROM THE TTY 


S$ 
FOR RETURN 


l 
; 
Sie 
ae 
: 


FOR ASCII CHAR. TO TYPE 


FI 
T 
once 


Ave 8 BYTES FOR TTY INPUT 





‘ 
" 
-~ 

sb aay 

m— + aus ea ™ 
w 
= m gaz aaa " 
_' —_ 

~ Ww @ ~ =| a a 4 
+ - © + —> vwvyv y 

at Le pas “OE S00 

A rr ance oe eee 
rT ss Sul w~-~TSB OOM\\, \ 
NNN N 
Ladle 
y 


OS3S0S SMNEW: 








BEBE RY LRNR ROM 

' TF i Bf : 
wang A" ftps nt Dini DUDLD LLL) fo 
DODO OOOOOOOOOOOO OO OooOooooo 


r7r7777T 
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CVDVAB.P11 1S-DEC-77 08:58 T COMMUNICA ibns ROU SEG 0113 
u7u6 .SBTTL APT COMMUNICATIONS ROUTINE 
; 1 1 7 1 ss TYi: MOVE. @1,SFFLG ;;10 REPORT FATAL ERROR 
eaeeee eee 
ares pias tierer games aaa EER Eee 1118 Pea fel 
4 i 000001 000220 Ty: MOVB +1. SFFLG ;;70 ONLY REPORT FATAL ERROR 
4 1 ‘ RO, -(SP) $3 RO TACK 
& 13664 HOV Ri'-(SP) 33 ae Stack 
.: i 000206 TSTB SHFLG :3SH A MESSAGE’ 
4 : 74 000001 165312 SAPTENV, SENV 33 P ina APT? 
4760 i 4 000100 165303 Te SSeTsPooL, SENVN 33 4 F MESSAGES? 
W7ee 13714 MOV 35 isp) RO :3GET rg 
4 1 oo0004 #2, 4(SP) "RETURN eo0R 
4768 : 16524 1S: rst SMSGTYPE 33 bone w/ LAST XMISSION? 
a7ee 1 165250 MOV SMSGAD 33 6a IN raz. Box 
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